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Bon de commande 
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Guerre atomique, Course en ligne droite 
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Mastermind (cf. 99 Magazine n° 3) 
Galaxia (cf. 99 Magazine n° 7) 
Disquettes utilitaires 


Routines graphiques (cf. 99 Magazine n°4, 5,6 et 7) 
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Éditorial 


Comme nous l'avions annoncé dans le précédent numéro de “99 Magazine”, vous avez entre les mains le 
dernier numéro de l'unique revue francophone entièrement consacrée au TI-99/4A Texas Instruments. 


Nous remercions les Lecteurs qui ont proposé des solutions propres à prolonger la vie de la revue, certains 
allant jusqu'à nous dire de faire passer le prix - sans cassette - à 100 Francs, ce qui, avouons-le, eut été 
exagéré ! Si l'on en croit votre courrier, la plupart des Lecteurs de “99 Magazine” ont ‘appris’ l'informatique 
en s'aidant des articles de nos collaborateurs et auteurs et, dans la plupart des cas, la revue a servi de tremplin 
vers d'autres matériels, plus “professionnels” ; nous pouvons donc considérer que nous avons rempli notre 
mission. 


Ce numéro, bien qu'étant l'ultime, n'a pas pour autant été négligé : vous pourrez trouver des jeux avec J.-P. 
Tellier qui vous propose la guerre des fourmis, Christian Lucas et son excellent Texas Aliens et 
François-Xavier Nelva qui nous a concocté un jeu d'aventure baptisé le château hanté. Encore des jeux, 

mais plus éducatifs : flag de Jean-Pierre Lartillier et, pour les tout-petits, Alligator de Bernard 
Legrand. Christian Badaroux nous confie un programme de comptabilité familiale qu'il a baptisé 
Harpagon et qui présente la particularité, par rapport à ce qui a été publié jusqu'à présent, de ne pas requérir 
d'autre extension que le Basic Étendu. Gérard Santraille, après sa petite infidélité du numéro 10, s'est 
remis au Pascal pour écrire un remarquable programme d'indentation automatique. Plus ‘pointus” puisque 
faisant appel à l'assembleur, un programme de copie d'écran pour le Basic Étendu écrit par Michel 
Teyssou, des routines permettant de dessiner en haute résolution et en temps réel avec le Basic Etendu, 

proposé par Alexandre Amortilla et, enfin, une participation de Jean-Philippe Guillemant qui sacrifie 
à la mode du fenêtrage. Au chapitre de la ‘bidouille’ très utile, nous trouvons le connecteur multiple de Jean 

Penné qui autorise la connection simultanée de plusieurs modules, ces derniers étant reconnus 
individuellement par le système d'exploitation de notre TI. Nous ne coñclurons pas sans citer Dessins en 
Basic TI, une ‘fantaisie graphique’ de Jean-Pierre Dhée, ainsi que les précisions apportées par Yann 
Fasquel sur l'utilisation des disques double face sur le TI-99/4A. 


À bientôt, peut-être, sur un autre matériel... 
Hervé Thiriez 


Rédacteur en chef - Directeur de la publication : Hervé Thiriez. 
Comité de rédaction : Jean-Luc Bazanegue, Gérard Santraille. 


Ont collaboré à ce numéro : Alexandre Amortilla, Christian Badaroux, Jean-Luc Bazanegue, Jean-Pierre 
Dhée, Yann Fasquel, Jean-Philippe Guillemant, Jean-Pierre Lartillier, Christian 
Lucas, Bernard Legrand, François-Xavier Nelva, Jean Penné, Gérard 
Santraille, J.-P. Tellier, Michel Teyssou. 
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Impression : Atelier graphique du centre - 25, rue Michel Lecomte - 75003 Paris - Tél. : 42.72.96.19. 


+ 





99 Magazine n° 11 5 


La guerre des fourmis 


J.-P. Tellier 


Nous vous proposons un court 
programme de jeu, écrit en Basic 
Etendu, dont le scénario est très 
simple : une fourmi bleue (en 
l'occurence vous) est prisonnière 
des fourmis rouges. Pour trouver 
la porte de la Liberté, notre 
fourmi doit manger au moins dix 
‘portions magiques” 


Les points 


Le but du jeu étant bien sûr d'en 

marquer le plus possible, voici la 

répartition des points : 

° un point pour une fourmi 
rouge ; 

+ 100 points pour une ‘portion 
magique” ; 

+ 100 points pour l'évasion ; ss 

+ 40 points pour un ‘Boni’ (un 
Boni correspond à Ja 
‘consommation’ de 20 portions 
magiques, plus l'évasion). 


t 
Les déplacements de la fourmi 
bleue sont obtenus grâce à la 
manette de jeux numéro 1. 





Programme 
“La guerre 
des fourmis” 
Basic Étendu 
190 RANDOMIZE 


200 CALL CLEAR CALL SC 
REEN(2):: FOR I=1 TO 8 


CALL COLOR(I,16,1) 
s5 NEXT «T 
210 GOTO 1370 
220 CALL SCREEN(2) 
230 CALL CHAR(96, "427E5AF 
FE7FFAS5AS5") 
240 CALI CHAR (111, "O0") 


250 CALL CHAR(112, "3E4181 
8281C1223C") 
260 CALL COLOR(11,16,2) 
270 CALL CHAR(104, "427E5A 
FFE7FFASAS") 
280 CALL CHAR(136,"FF8181 
81818181FF") 
CALL COLOR(14,3,2) 
CALL COLOR(9,6,2) 
CALL COLOR(10,10,2) 
X=16 
FOR J=1 TO 24 
CALL HCHAR(J,3,111,28 


290 
300 
310 
320 
330 
340 


NEXT J 
Y=12 
GOT=0 
CALL HCHAR(Y,X, 96) 
COUNT=1 
CALI, JOYST(1,DX,DY) 
A=X 
B=Y 
IF (DX=0)+(DY=0)=-2 T 
HEN 540 
440 X=X+DX/4 
450 Y=Y-DY/4 
460 IF (X<3)+(X>30)+(Y<1) 
+(Y>24)<0 THEN 1120 
CALL HCHAR(B,A,111) 
CALL GCHAR(Y,X,£Z) 
CALL HCHAR(Y,X, 96) 
IF Z=111 THEN 540 
IF Z=104 THEN 890 
IF Z=112 THEN 1020 
IF Z=152 THEN 1200 
R=INT (24*RND) +1 
C=INT (28 *RND) +3 
CALL GCHAR(R,C,2Z) 
IF Z=111 THEN 600 
IF Z=96 THEN 660 
GOTO 540 
CALL HCHAR(R,C,104) 
IF COUNT<>20 THEN 630 
GOSUB 930 
CALL SOUND(100,110,1) 
COUNT=COUNT+1 
GOTO 400 
CALL CLEAR 
REEN (2) 

670 CALL SOUNLD(2500,440,2 
:659,5,880,10,-6,15) 
680 DISPLAY AT(5,1):"LA F 

QOURMI BLEUE EST MANGEE 


430 


470 
480 


CALL SC 


1" 


690 DISPLAY AT(8,1):"LES 

ROUGES ETAIENT ";COUNT 
:2 DISPLAY AT(10,1) :" 
LES PORTIONS MANGEES " 
; GOT 

720 SCORE=GOT*100+COUNT 

730 DISPLAY AT(13,1):"VOT 
RE POINTAGE EST "; SCOR 
E 

740 DISPLAY AT(15,1):"LE 
VIEUX RECORD EST ";HIS 
CORE 

750 IF HISCORE>SCORE THEN 

790 

760 HISCORE=SCORE 

770 DISPLAY AT(18,1):"FEL 
ICITATION 1" s: DISPIA 
Y AT(20,1):'"POUR LE NO 
UVEAU RECORD." 

790 DISPLAY AT(23,1) :"VOU 
LEZ-VOUS REJOUER (O/N) 
po" 

810 CALL KEY(0,KEY,S) 

820 IF S=0 THEN 810 

830 CALL CLEAR CALL SC 
REEN (2) 

840 IF (KEY=79)+(KEY=111) 
THEN 320 

850 1! 

860 CALL CLEAR 
REEN (2) 

870 DISPLAY AT(12,4):"MER 
CI D'AVOIR JOUER." :: 

: FOR D=1 


CALL SC 


GOSUB 2000 
TO 300 NEXT D 

880 STOP ; 

890 CALL CLEAR CALL SC 
REEN (2) 


900 CALL SOUND(2500,440,2 
,059;,;5,880,10,=8,2) 
910 DISPLAY AT(5,1):"C'ES 

T UN SUICIDE !" 
GOTO 690 
FOR I=1 TO 10 
RO=INT (24 *RND) +1 
CO=INT (28*RND) +3 
CALL GCHAR (RO, CO, Z) 
IF Z=96 THEN 940 
980 IF Z=112 THEN 940 
990 CALL HCHAR(RO,CO,112) 
1000 NEXT I 
1010 RETURN 


920 
930 
940 
950 
960 
970 
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1020 GOT=GOT+1 

1030 CALL SOUND (1000,262, 
2,;330;,2;392;2) 

1040 IF GOT<>10 THEN 540 

1050 GOSUB 930 

1060 RO=INT (24*RND) +1 

1070 CO=INT(28*RND) +3 

1080 CALL GCHAR(RO, CO, Z) 

1090 IF Z<>111 THEN 1060 

1100 CALL HCHAR(RO, CO, 152 
) 

1110 

1120 

1130 

1140 

1150 

1160 

1470 

1180 

1190 

1200 

1205 

1210 

1220 
) 

1230 NEXT IK 

1240 DATA 262,330, 392, 523 
r392,523,330,392,.523,6 
59 

1250 DATA 523,659,392,523 
, 659,784, 659, 784, 784 

1280 CALL CLEAR :: CALL S 
CREEN (2) 

1280 BONUS=0 

1290 DISPLAY AT(5,1):"LA 
FOURMI EST HORS DE DAN 
GER" 

1300 IF GOT<>20 THEN 1320 

1310 BONUS=4000 

1320 BONUS=BONUS+1000 

1330 SCORE=GOT*100+COUNT+ 
BONUS 

1340 DISPLAY AT(13,1):"VO 
TRE POINTAGE EST ";SCO 
RE 

1350 GOTO 740 

1360 END 

1370 DISPLAY AT(9,6):"LA 
GUERRE" :: DISPLAY AT( 
12,13) :"DES" :: DISPLA 
Y AT(15,16) : "FOURMIS" 

: GOSUB 2000 

1372 FOR D=1 TO 300 :: 
XT D 

1374 CALL CLEAR 

1380 DISPLAY AT(12,1)BEEP 
: "VOULEZ-VOUS LE GUIDE 

(O/N) ?" 

1390 CALL KEY(0,K,S) 

1400 IF S=0 THEN 1390 

1410 IF K=78 THEN CALL CL 
EAR :: GOTO 220 


GOTO 540 

FOR JOT=1 TO 6 
CALL SCREEN (7) 

CALL SCREEN (2) 

CALL SOUND(10,-5,1) 
NEXT JOT 

X=A 

Y=B 

GOTO 650 

RESTORE 1240 

FOR IK=1 TO 19 
READ NAL 

CALL SOUND (100, NHL, 1 


NE 


1420 IF K<>79 THEN 1390 

1430 CALL CLEAR 

1440 DISPLAY AT(3,3):"*S 
OIS LE BIENVENU ! *" : 
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: DISPLAY AT(6,3) : "TU 
ES LA FOURMI BLEUE." : 
: DISPLAY AT(8,3):"MAI 
S TU ES PRISONNIERE, " 
1450 DISPLAY AT(10,3):"DE 
S FOURMIS ROUGES." :: 
DISPLAY AT(12,3) : "POUR 
TROUVER PORTE JAUNE" 


FA 
FH, Fi 
Fr # HA 
“hd En FA 
ri 
ma 76 
FA À 


1460 DISPLAY AT(14,3):"TU 
DOIS MANGER PLUS DE" 
2: DISETAY. AT (16,5) :"1 
C*PORTIONS MAGIQUES*." 
1470 DISPLAY AT(19,3):"TU 
DOIS T'EVADER VITE, " 
2: DISPLAY AT (21,3): "C 
AR LA MORT T'ATTEND !" 
1480 DISPLAY AT(24,3):"*T 
APEZ CLE POUR POINTS*" 
1670 CALL KEY(0,K,S) 
1680 IF S=0 THEN 1670 
1690 CALL CLEAR 
1700 DISPLAY AT(2,9):"LES 


POINTS" :: DISPLAY AT 
(4,3): POUR UNE 
ROUGE" 


1710 DISPLAY AT(6,-3) 2 "109 
POUR UNE PORTION" : 
: DISPLAY AT(8,3):"100 
O0 POUR L'EVASION" 
4720 DISPLAY AT(10,3):"40 
00 POUR BONI" 
5/30 DISPLAY AT(13,3):"LE 
BONI" :: DISPLAY AT(1 
5,8):"C'EST 20 PORTION 
S" »+ DISPLAY AT (17,3) 
: "MAGIQUES + L'EVASION 


1740 DISPLAY AT(20,3):"UT 
ILISEZ LA MANETTE #1" 
ss DISPLAY AT(23,3)2"%* 
TAPEZ CLE POUR JOUER*" 

1930 CALL KEY(0,K,S) 

1940 IF S=0 THEN 1950 

1945 CALL CLEAR 

1950 GOTO 220 

2000 RESTORE 2020 

2010 FOR I=1 TO 50 :: REA 
D F :: CALL SOUND(170, 
F,1)#: NEXT I #2: RETUR 
N 

2020 DATA 110,139,165,185 
»196,185,165,139,110;1 
39,165 

2030 DATA 185,196,185,165 
,139,147,185,220, 247,2 
62,247 

2040 DATA 220,185,110,139 
:165:185;:196;:185; 165,1 
39; T62 

2050 DATA 208,247,277,147 
,185,220,247,220,196,1 
85,175 e 

2060 DATA 165,147,139,123 
110,110 


Harpagon 


Ce programme qui, comme son nom 
l'indique, est un programme de comptabilité 
(familiale) qui ne requiert, comme 
extension, que le Basic Etendu et un (ou 
deux) magnétophone. Afin qu'il fonctionne 
sans problème avec cette configuration (très 
proche de la configuration de base), le 
programme ne comporte pas d'indication 
quant à la marche à suivre ; c'est pourquoi 
nous vous proposons une présentation 
d'““Harpagon” à la manière d'un mode 
d'emploi. 


Finalité 


Il y a deux volets principaux : 


+ la gestion des dépenses et ressources à l'usage 
d'un foyer avec enregistrement des diverses 
opérations effectuées et la tenue du solde de votre 
compte personnel, permettant aussi le 
rapprochement avec la tenue de votre compte en 
banque. Il permet de tonserver les opérations 
effectuées et de pouvoir les relire à volonté ; 

* la gestion d'un budget prévisionnel et son 
évolution dans le temps en fonction des dépenses 
ou revenus engagés. 


Termes utilisés 


Opérations : signifiera dépenses ou revenus (à usage 
domestique, les dépenses sont éclatées en 31 
chapitres différents, les revenus en une seule tête de 
chapitre baptisée “REVENUS”. 


Personnalisation 


La dénomination des 31 chapitres est laissée à 
l'initiative de l'utilisateur, et est effectuée au cours de 
la phase dite d'INITIALISATION. 

Chaque chapitre est prévu pour être affecté à un 
mode de paiement spécifique, tel que les utilisent les 
banques, et ventilé en 10 possibilités : 


+ chèques 
+ prélèvements 
* retrait carte bleue 


Christian Badaroux 


virement 

plan d'épargne logement 

amortissement de prêt 

frais divers de banque 

retrait d'espèces 

prélèvement de l'impôt sur le revenu des 
personnes physiques 

+ divers 


L'affectation d'un mode de paiement spécifique à 
chaque chapitre est laissée à l'initiative de 
l'utilisateur. 


Abréviations 

Prel.nt : Prélèvement 

Rt C.B : Retrait Carte Bleue 

Vir.ent : Virement 

P.E,.L ; Plan d'Épargne Logement 

Am.Pret : Amortissement prêt 

Ret.esp : Retrait espèces 

LKR:PP : Impôt sur le revenu des 
personnes physiques 


Solde Cpt.Pers : 
Solde Cpt.Ban : 
On. 


Solde du compte personnel 
Solde du Compte Banquaire 
Opérations 


Première utilisation 
du programme 


Le programme prévoit de traiter les données 
précédemment enregistrées sur une cassette afin de 
les modifier en fonction de la saisie des données. 


Lors de la première utilisation, cette cassette n'a pas 
été élaborée et il faudra procéder à l'initialisation. 
Après avoir fait “RUN”, et dès l'apparition du 
générique, taper "75", ce qui vous conduira au Menu 
Principal. 


L'option numéro 8 vous permettra de procéder à 
l'initialisation de la description des chapitres, puis 
des types de paiement, et revenir à l'option "FIN" 
numéro 9, afin d'effectuer une sauvegarde de ce 
travail sur une cassette séparée avant de procéder à la 
suite. 
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MEHU 


ETAT INITIAL 
BUDGET 
TABLEAU FINAL 


OPERATION 


Un & ON 


OP.ET ARCHIVAGE 
ETAT Des COMPTES 
CONSULT. ARCHIVES 


Iniriarcis.Cor. 


0 © y am 


Fin 


VOTRE CHoOIx ? 9 


Initialisation 


Sur l'option 8 du menu principal apparaît le tableau 
suivant : 


INITIALISATIUON 


ANNEE 

HO CHEQUE 

Sorpre cPT.PERS. 
Sorre CPT.BANcC. 
CHAPITRE 

TYPE PAYEMENT 


CORRECTION 


OO ON OC 8 O0 ND 


Hz ARCHIVES 


VOTRE CHo1x ? 9 


Année 


L'option 1 vous demande deux chiffres 
correspondant aux deux derniers chiffres de l'année 
en cours : 86, par exemple, pour 1986. 


Lors du changement d'année, il suffit de revenir à ce 
point pour effectuer la modification. Toutes les 
opérations entre temps seront affectées à 86 sans 
avoir besoin de les taper à chaque fois. 


Chèques 


Chaque chapitre d'opération affecté d'un paiement 
"CHEQUE" numérote séquentiellement les chèques 
et ceci sans avoir besoin de taper les numéros 
correspondants. Lors de l'utilisation d'un nouveau 
chéquier, revenir à cette option en inscrivant le 
numéro du futur chèque -1 (numéro du dernier 
chèque utilisé). Vous pouvez entrer un maximum de 
sept chiffres. 


Solde des comptes 


Correspond respectivement au solde de votre compte 
personnel et compte bancaire. 
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chapitre 


Vous pouvez désigner chaque poste de votre budget 
par la dénomination de votre choix. 
Il faut enregistrer les 31 chapitres consécutivement. 


Le numéro en cours apparaît en haut et à gauche de 
l'écran. Vous pouvez utiliser jusqu'à 12 caractères 
alphanumériques en majuscules ou minuscules. Vous 
pouvez vérifier le résultat de cette étape sur l'option 
1,2 ou 3 du Menu Principal. 


Type de paiement 


A chacun des chapitres précédemment entré, il faut 
affecter le mode de paiement retenu. 


Vérifier surtout que le mode retenu pour les chèques 
est bien exclusif, si vous voulez que la numérotation 
automatique des chèques fonctionne sans problèmes. 
Les options possibles sont récapitulées à la demande 
de l'option 6 de la phase d'initialisation. 


Î 
ENTRER Cope TYPE PAYEMENT: 


CHEGUES 
PREL.NT 
RT C.B 
VIR.ENT 
PES IL 
AM.PRET 


FRAIS 


DO I OU CO OR CG NN 


RET.ESF 
I.R.P.P 
10 DIVERS 


5 


Le numéro correspondant au chapitre en question 
apparaît en haut et à gauche de l'écran. Un exemple 
d'affectation est joint à cet article, sous la forme d'un 
tableau. 


Option 7 et 8 


Pour ces deux dernières options, 1l convient de se 
reporter aux paragraphe Correction et Changement de 
cassette archives. 


Tableau initial 


Ce tableau représente l'état de votre budget du mois 
précédent compte tenu des opérations etfectuees 
précédemment. 

Il est le reflet des écarts par rapport aux prévisions. Il 
va être, pour le mois suivant, modifié chapitre par 
chapitre suivant la formule : 

Tableau final = Tableau Initial + Budget - Dépense 
(ou revenus) 


Tableau final (1) = Tableau Initial (1) + Budget (1) - 
Dépense (1) 





dans lequel I est le numéro du chapitre concerné. 


Le tableau initial est égal au tableau final du mois 
précédent soit : 


Tableau Initial (M) = Tableau Final (M-1) 


dans lequel M est le mois actuel et M-1 le mois 
précédent. 


Budget 


Pour chaque chapitre, c'est la prévision 
d'engagement de dépenses ou revenus mensuels 
moyens. 


En effet, certaines opérations n'ont pas le même 
cycle ; des opérations sont engagées mensuellement, 
d'autres tous les 2, 3, 4, 6 mois, ou annuellement. 


La constitution sur la base moyenne mensuelle 
permet d'effectuer la provision nécessaire 
correspondante jusqu'au moment ou il faut engager 
la dépense. Le budget est modifiable à tout moment 
et il est conservé en données pour éviter d'avoir 
besoin de l'écrire à chaque saisie. 


Le budget peut être équilibré ou non au choix de 
l'utilisateur. En équilibre, la somme des 31 premiers 
chapitres doit être égale au 32ème (chapitre 
“Revenus”, qui doit être affecté d'un signe négatif. 


Tableau final 


Tableau final et tableau initial mesurent les écarts par 
rapport aux prévisions en fonction des opérations 
effectuées (voir le paragraphe Tableau initial). 


Opérations 


L'option 4 du Menu Principal vous permet : 


+ d'effectuer la saisie d'une opération ; 
+ d'avoir, par chapitre, la synthèse des opérations 
effectuées pendant le mois. 


Appuyer sur “O” <ENTER> pour faire défiler le 
numéro du chapitre concerné, afin de pouvoir 
effectuer la saisie d'une opération sur le chapitre 
concerné. 


Dès la demande d'un chapitre apparaît l'écran 
suivant : 


OPERATION 
RHKELERELRLEEERÉEELEEEREEREESX 
LIBELLE 99 

SOMME 

DATE 


TYPE PAYEMENT: 


+ à droite de OPERATION est rappelé le chapitre 
concerné. Pour LIBELLE, vous pouvez entrer 
sept caractères alphanumériques pour résumer le 
libellé de l'opération ; 

+ pour la SOMME, celle-ci est limitée aux valeurs 
extrêmes -1ES et 1E6 ; 

* pour la DATE, entrez le jour (1 à 31), puis le mois 
(1 à 12) et s'inscrit automatiquement l'année en 
cours si vous l'avez initialisée au préalable ; 

« le type de paiement s'inscrit automatiquement avec 
éventuellement le numéro du chèque 
correspondant si l'initialisation a été effectuée au 
préalable. 


En cas d'erreur, il suffit d'entrer un chiffre 
différent de zéro pour recommencer la saisie de la 
donnée correspondante. 


Après la saisie, le compte personnel est débité ou 
crédité du montant correspondant, que l'on peut 
vérifier après la saisie : 


SOLDE CPT.PERS.-1250 
Socpe CPT.BAaNc. 0 
-1250 


DIF. CP-CH = 





APPUYER SUR UNE TOUCHE 


Le retour se fait sur le tableau DEPENSES et vous 
pouvez à nouveau procéder à une nouvelle saisie, 
comme indiqué en tête de ce paragraphe. 


Vous pouvez, sur un même chapitre, saisir plusieurs 
opérations. La limite du nombre d'opérations est de 
30 y compris les opérations non archives du mois 
précédent. 

Une fois la saisie effectuée, vous pouvez sur le 
tableau DEPENSES, avoir les résultats par chapitre 
ou faire appel à l'option 5 du Menu Principal pour 
vérifier l'ensemble des opérations qui sont en 
mémoire. 

Note : l'option 5 permet d'appeler les opérations non 
soldées du mois précédent. 


Synthèse des opérations 
et archivage 


C'est l'option 5 du Menu Principal. Plusieurs 
présentations vous sont offertes, afin de faire le point 
et vérifier vos divers comptes.  : 
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Les options 1, 2, 3 vous permettent de retirer une 
opération soldée par votre banque. 


Les autres options 4,5 et 6 sont là pour vérification. 


Sas ST ACTU TI] (SNS 
CLAS.NT PAR DATE 

CLAS.NT PAR VAL 

CLAS.NT PAR TYPE PAY.NT 
Toures OPr.(ÜURDRE ENTREE) 
VERIF DEP.VALIDEES 


VERIF.DEP NON VALIDEES 


ND E&E OO ND 


FIN RETOUR MENU 


VOTRE CHOIX ? ré 


La durée du classement sur les options 1 et 2 varie en 
fonction du nombre de données. 


Les dates et valeurs sont classées de façon 
croissante. L'option 3 permet d'appeler les 
opérations effectuées par le mode de paiement 
correspondant. Pour l'appel des chèques, c'est le 
numéro du chèque qui apparaît en place du libellé de 
l'opération. Sur les 3 premières options, <ENTER> 
ZERO permet de mettre en archive l'opération 
correspondante, une confirmation vous sera 
demandée puis l'état des comptes vous sera donné, et 
le montant de l'opération sera déduit du compte 
bancaire, vous permettant ainsi de suivre l'évolution 
des opérations soldées par votre banque. 


L'option 4 ne fait pas la différence entre opérations 
archives ou pas tandis que 5 et 6 vous permettent de 
visualiser les opérations effectuées et de savoir où 
sont classées chacune d'elles. 


État des com ptes 


Les comptes en question sont : 


* votre compte personnel ; 
* votre compte bancaire. 


Il existe toujours un décalage entre la tenue de votre 
compte et la tenue de votre compte bancaire, tant que 
la banque n'a pas soldé votre opération. 


+ votre compte personnel est mis à jour chaque fois 
que vous saisissez une donnée ; 

+ votre compte bancaire est modifié et mis à jour 
chaque fois que vous archivez une opération sur 
l'option 1, 2 ou 3 mentionnée au paragraphe 
précédent. 


L'option CORRECTION (qui sera expliquée dans le 
paragraphe Correction d'une donnée) rétablie les 
soldes des deux comptes en annulant l'opération 
objet de la correction et remodifie uniquement le 
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compte personnel. Après correction, l'opération ainsi 
modifiée n'est pas archivée ; il faut suivre la 
procédure d'archivage concernant cette opération si 
nécessaire. 


Consultation des archives 


Il s'agit d'une procédure occasionnelle qui vous 
permet de lire la cassette “ARCHIVES” comme 
mentionné plus loin et de visualiser opération par 
opération. 

Chaque archive est numérotée et, pour arrêter le 
défilement, il suffit d'appuyer sur une touche, ce qui 
fait apparaître le ‘Tableau final” qui est le 
regroupement par chapitre de toutes les opérations 
lues précédemment. Cette manipulation permet de 
faire une synthèse pour éventuellement élaborer un 
budget plus actuel. 


Utilisez éventuellement cette procédure pour mettre la 
bande de magnétophone au futur point de départ du 
prochain enregistrement, si vous avez rembobiné la 
cassette “ARCHIVES” par accident. 


Fin de saisie des données 


Appelez le numéro 9 du Menu Principal qui va vous 
donner les instructions de manipulation de cassette 
afin d'enregistrer les informations. 


Première phase 
Sur CSI l'ensemble des données commande : 


+ les 31 chapitres avec leur dénominateur ; 
+ les 32 modes de paiement ; 

+ le nombre d'archives déjà enregistrées ; 
+ le nombre d'opérations en cours ; 

+ le numéro du dernier chèque utilisé ; 

+ les deux chiffres de l'année en cours ; 

+ les soldes des deux comptes ; 

+ le tableau final 

+ le tableau budget 


Ensuite suivra l'enregistrement des opérations non 
soldées qui s'inscrivent sur l'écran. 

Un compte à rebours vous permet de savoir, en 
cours d'enregistrement, combien de fichiers restent à 
être enregistrés. 


À la suite de cette opération, il faut changer de 
cassette de magnétophone ou de cordon pour 
permettre l'enregistrement des “ARCHIVES” sur 
CS2, 


Seconde phase 


La deuxième phase permet de sauvegarder en 
ARCHIVES Îles opérations soldées. Deux 
précautions sont à prendre : 


* ne pas rembobiner la cassette “ARCHIVES” afin 
de ne pas écraser les données précédentes ; 

+ utiliser le cordon CS2 pour que l'enregistrement se 
fasse sans probième. 





À chaque enregistrement sont visualisées chacune 
des opérations avec chacune de leurs caractéristiques. 


Pour un traitement particulier par un autre 
programme de votre choix (ou de votre cru), 
l'enregistrement est composé de la façon suivante : 


OPEN #1:"CS2",INTERNAL, OUTPUT,FIXED 64 
PRINT #1:A,B,C,D,ES$ 


dans lequel : 


A est la somme de l'opération concernée 

B est la date en un seul nombre, sous la forme 
ANMOÏJO tel que 12 janvier 86 serait écrit 
860112 

C est le numéro du chapitre correspondant 

D est le numéro de chèque, éventuellement 
accompagné du code de type de paiement. 
Exemples : 
* chèque n° 7 281 263 sera écrit 7281263011 
*_ paiement sous code 3 (retrait C.B) 031 

ES$ libellé tel que saisi, et comportant 7 caractères 
alphanumériques 


Correction d'une donnée 


Il s'agit d'une procédure exceptionnelle car, en cours 
de saisie, vous avez la possibilité de recommencer 
l'entrée des données. Néanmoins, si vous vous 
apercevez d'une erreur, il vous faut suivre la 
procédure suivante : 


Menu Principal - option numéro 5, puis option 
numéro 3 où vous pouvez faire défiler toutes les 
opérations. Compter le numéro d'ordre de saisie de 
la donnée à modifier. Si la donnée apparaît en 
deuxième page au numéro 4, par exemple, le numéro 
de la donnée sera 13 (9+4), et ainsi de suite. Revenir 
au menu INITIALISATION puis option 7 
CORRECTION. 


À la demande de numéro, faire 13 <ENTER> 
(exemple ci-dessus) et vous devez tombé sur la 
dépense à modifier. Si ce n'est pas le cas, faire "0" 
<ENTER>, puis le nouveau numéro de saisie 
jusqu'à visualiser l'opération concernée. 


Taper un chiffre, modifier le libellé, la somme, la 
date et sur la même ligne, séparé par deux virgules, 
entrer le numéro du chapitre, le numéro de chèque 
éventuellement, puis le code du type de paiement 
(voir le paragraphe /nitialisation). 





+ vous tapez 3,7812762,1 pour affecter l'opération 
corrigée au chapitre 3 paiement par chèque numéro 
7812762 et mode de paiement chèque 1. 

* vous taperez 5,0,3 pour affectation au chapitre 5 
avec un mode de règlement 3 (retrait Carte Bleue). 


Les tableaux DEPENSES, les SOLDES DES 
COMPTES sont corrigés en conséquence et votre 
opération ainsi corrigée si elle était archivée, se 
retrouve non archivée. Recommencez la procédure 
normale si nécessaire. 


Précautions d'emploi 


+ utilisez un magnétophone avec des têtes propres, 
afin que la lecture des fichiers ne pose pas de 
problème ; 

+ évitez de confondre les cassettes : 

— PROGRAMMES 

— DONNEES COURANTES 

— ARCHIVES 

afin de ne pas 
correspondantes ; 

+ veillez à ne pas écraser les données précédentes de 
la cassette “ARCHIVES” en rembobinant la 
cassette. 


écraser les données 


Changement de 
cassette “Archives” 


Lorsque la cassette archive est pleine, et afin de 
repartir sur l'autre face : 


* noter sur la cassette le nombre d'archives 
(consultation archives) ; 

* pour repartir à zéro sur l'autre face initialisez, avec 
l'option 8 du menu INITIALISATION, le nombre 
à zéro ; 

* manipulations spéciales : si vous voulez lire une 
cassette “ARCHIVES” différente de celle qui est 
en cours, initialisez NB au nombre correspondant 
d'archives à lire et, en fin de lecture, rétablir NB à 
sa valeur initiale. 

Note : au fur et à mesure des archivages, il est 

prudent de noter le nombre d'archives déjà 

enregistrées pour pouvoir se livrer aux manipulations 
spéciales indiquées ci-dessus. | 








Programme 
“Harpagon” 
Basic Étendu 


consult. 

100 ‘PIM Z(353);U0U{33).,81(33) 

/G(33),D(30),C(30),B$( 

30),Y(30),X(30) ,P$ (33) 
LP (33),DM( 

33),MS(20):: DEF VL(I)=Y( 


I)-10*INT(Y(I)/10) 

110 DATA MENU,Etat Initia 
l,Budget, Tableau Final 
,Operation,Op.et Archi 
vage,Etat des Comptes, 

Archives,Init 
ialis.Cor.,Fin, 

120 DATA INITIALISATION,A 
nnee,No cheque,Solde c 
pt.Pers.,Solde Cpt.Ban 
c.,Chapitre,Type Payem 


ent,Correction,Nb Arch 
ives, 

130 DATA VERIF.OPERATIONS 
,Clas.nt par date,Clas 
nt par. val, Clas.nt pa 
r type pay.nt,Toutes © 
p. (Ordre entree),Verif 

dep.validees 

140 DATA Verif.dep non va 
lidees,fin retour menu 
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150 DATA TYPE PAYEMENT: 

160 DATA Cheques,Prel.nt, 
Rt C.B,Vir.ent,P.E.L,A 
m.pret,Frais,Ret.esp,lI 
.R.P.P,Divers, 

170 DATA Somme, Date, ATTEN 
TION,Placer cassette À 
RCHIVES, sur CS1l,sur CS 
2, SATURATION, VOUS ALLE 
Z ARCHIVER, Confirmer E 
nter 0 Sinon No 

180 DATA Enter No Sinon S 
uite=0,Libelle 

190 FOR I=1 TO 53 :: READ 
AS :: IF (I=2)+(I1=3)+ 
(I=4)+(I=5)+(1=13)+(I= 
14)+(I=15)+(I=16)+(I=3 
1)+(I>42) THEN J=J+1 


M$ (J) =A$ 

200 NEXT I 

210 RESTORE 160 :: FOR I= 
1 TO 10 :: READ LPS$(I) 


:: NEXT 1220 CALL CHAR 
(128, "FFFFFFFFFFEFFFFFF 
FFFFFFFFFFFFFFFEFFFFFFF 
FFFFFFFFFFFFEFFFFFFFFF 
FFFFFF") 

230 CALL SPRITE(#1,128,10 
74,74,0,5):: CALL MAG 
NIFY(4):: DISPLAY AT(8 
, 8)ERASE ALL :"BADAROUX 
se" 8 GOTO 250 

240 CALL CLEAR 

250 DISPLAY AT(14,8):"HAR 
PAGON" :: DISPLAY AT{1 
6,8):"ENTRER No" 

260 ACCEPT AT(16,20):CL : 
: IF CL<>75 THEN 990 E 
LSE CALL DELSPRITE (ALL 
):: GOTO 420 


270 INPUT "NB'":NB2 :: GOT 
O 420 
280.INPUT "NO"SI 22 IE ((T 


<1)+(I>NB) THEN 280 ELS 
E GO SUB 1210 GOSUB 
1250 :: GOSUB 530 :: 
CALL C1(0»9,24,27,1L)5: 
IF L=0 THEN 280 
290 CALL SCREEN(5):: DISP 
LAY AT(19,9) : "CORRECTI 
ON" :: GOSUB 550 
300 DISPLAY AT(22,1):"Cha 
p,No Cheque (ou 0),Typ" 
+. INPUT (C(0),Y1(0),L 
:2 IF (C(0)<1)+(C(0)>3 
2) THEN 300 ELSE IF (L< 
1)+(L>10)THEN 300 
310 Y(0)=1E3*Y(0)+10*L :: 
B$(I)=LIBELS :: DM(C( 
I))=DM(C(I))-D(I):: X( 
I)=AN*1E4+MO*100+JO :: 
DM(C(0))=DM(C(0))+T : 
IF VL(I)THEN CB=CB+D 


(1) 
320 CALL CLEAR :: CP=CP+D 
(I)-T 55 C(I)=C(0) :2 D 
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(I)=T +22 Y(I)=10*INT(Y 
(0)/10):: GOSUB 1210 : 
: GOSUB 1250 :: CALL W 
:: GOTO 420 

330 INPUT MS(5)&" act. (2 
Ch.) "eAN :: IF (AN<1 
)+(AN>99) THEN 330 ELSE 
420 

340 INPUT "Dernier "&MS(6 
j&" utilisé (7 Chiffre 
s Max) ":CH1 :: IF (CH1 
<99)+(CH1>=1E8) THEN 34 
O0 ELSE 420 

350 DISPLAY AT(10,2):MS$S(7 
):: ACCEPT AT(14,2)VAL 
IDATE (NUMERIC):CP :: C 
ALL AR(CP):: GOTO 420 

360 DISPLAY AT(10,2):MS(8 
):: ACCEPT AT(14,2)VAL 
IDATE (NUMERIC) :CB :: C 


ALL AR(CB):: GOTO 420 
370 FOR I=1 TO 31 :: DISP 
LAY AT(10,2):I;" Natu 


re Depense(12 Lettres 


Max)" :: ACCEPT AT(15, 
7)SIZE(12):P$S(I):: NEX 
T I :: GOTO 420 

380 FOR I=1 TO 10 :: DISP 


LAY AT(2*1+3, 1) :I:LPS( 
FT) S ONEXT : FOR I=1 
T@::34 

390 DISPLAY AT(1,2)51;:" 
Entrer Code "&MS(9):: 
ACCEPT AT(24,27) :LP(I) 

IF {LP (1)510)+ (LEP (I 

)<1) THEN 390 

400 NEXT I :: GOTO 420 

410 CALL M(I,2):: ON I GO 
TO 330,340, 350, 360, 370 
, 380, 280,270 

420 PS(32)="REVENUS" :: L 
P(32)=4 : PS(33)="TOT 
AUX" se CADL M{I,41) 

430 ON I GOTO 440,450,460 
,470,630,480,1130,410, 
1030 


440 FOR J=1 TO 33 :: Z(J) 
=U(J);: NEXT J :: GOSU 
B 1310 :: FOR J=1 TO 3 
3 :: U(J)=Z(J):: NEXT 
J :: GOTO 420 

450 FOR J=1 TO 33 :: Z(J) 
=G(J) :: NEXT J :: GOSU 
B 1310 :: FOR J=1 TO 3 
3 :: G(J)=Z(J):: NEXT 
J :: GOTO 420 

460 FOR J=1 TO 33 :: Z(J) 
=U(J)+G(J)-DM(J) : : NEX 


T J se GOSUB. 1310 se: FE 
OR J=1 TO 33 :: S(J)=Z 
(J) :: NEXT J :: GOTO 4 
20 

470 FOR J=1 TO 33 :: Z(J) 
=DM(J) :: NEXT J :: GOS 
UB 1310 :: FOR J=1 TO 


33 :: DM(J)=Z(J):: NEX 


i Gaz 

i Electricité 

i Charges 

: Assurance Auto 

i Parking 
: Impôt sur Revenu 
i Taxe habitation : 
10 Taxe foncière 

11 : Entretien Auto 

12 ? Essence 

13 Habillement 

14 ; Électro-ménager 
15 : Nourriture 

16 : Am. Prêt 

17 : Plan d'épargne 

18 : Vacances 

19 : Uins-Alcools 


© —J ON UT R © ND — 


WW 


20 : Cinéma 

21 : Cadeaux 

22 : Liquide 

23 : C.B. liquide 
24 : C.B. divers 
25 : Livres 


26 : Redevances 

21 : Cotisations 

28 : Santé 

29 : Caisse Épargne 
30 : Ameublements 
31 : Divers 

32 : REVENUS 


T J 55 GOTO 420 

480 CALL C(CB,CP,MS$S()):: 
GOTO 420 

490 FOR J=1 TO 16 :: DISP 
LAY AT(3+J,1)$T :: DIS 
PLAY AT(3+J,5):P$(J):: 
NEXT J :: RETURN 

500 FOR J=17 TO 32 :: DIS 
PLAY AT(3+J-16,1):J :: 
DISPLAY AT(3+J-16,5): 
PS(J):: NEXT J 

510 IF K=32 THEN CALL SCR 
EEN (16) 

520 DISPLAY AT{20,2):" 


" s$ DISPIAY AT (21,2): 


PS(33):: RETURN 

530 DISPLAY AT(24,3):MS (1 
9) :: RETURN 

540 GOSUB 1220 
50 :: GOTO 580 

550 ACCEPT AT(6,19)SIZE(7 
) :LIBELS 

560 CALL C1(-1E5,1E6,9,19 
ST) ss (CAE ART) SE IF 
K=32 THEN T=-T 

570 CALL C1(1;31,12,;19,JO 
ss CALL C1(1,12,12,22 
MO) :: DISPLAY AT(12,2 
5) : AN :: RETURN 

580 IF LP(K)=1 THEN DISPL 
AY AT(17,18):CH1+1 

590 DISPLAY AT(15,19):LPS 
(LP(K)):: GOSUB 530 :: 
CALL C1(0,9,24,27,KEY 
):: IF KEY<>0 THEN GOT 
O 540 

600 NB=NB+1 
ELS :: D(NB)=T :: 
=Z(K)+T :: C(NB)=K 

610 X(NB)=JO+MO*1E2+AN*1E 
4 :: IF LP(K)=1 THEN C 
H1=CH1+1 : Y(NB)=1E3* 
CH1+10 ELSE Y(NB)=10*L 
P(K) 

620 CP=CP-T :: CALL C(CB, 
CP,MS$()):: RETURN 

630 T=0 CALL M(K,4) 

640 LL=0 :: ON K GOTO 660 
, 650, 680, 670,650, 650,4 
20 

650 CALL CLAS(Z(),D(),NB) 


GOSUB 5 


: B$S(NB)=LIB 
Z (K) 


GOSUB 710 GOTO 6 
30 
660 CALL CLAS(Z(),X(),NB) 
GOSUB 710 GOTO 6 
30 
670 FOR I=1 TO NB :: ZI) 
=] :: NEXT I GOSUB 
710 :: GOTO 630 
680 CALL M{(LL,3):: FOR I= 
1 TO NB 


690 IF INT(Y(I)/10)-100*1I 
NT(Y(I)/1E3)=LL THEN Z 
(I)=I ELSE Z(I)=0 


700 NEXT I :: GOSUB 710 
: GOTO 630 

710 T=0 33 IL ss E=9 

720 CALL CLEAR :: DISPLAY 
AT(1,1):"No "&MS(11)& 
" Ch: "&MS (10) 


: DISPLAY AT(2,1):"# 


HRHHHARHRHX HAHHHHX OHAHAAX AXE 
XxxX I 


730 IF I>NB THEN L=T :: G 
OTO 870 ELSE 740 

740 IF Z(I)=0 THEN 930 

750 IF K=4 THEN 790 

760 IF K<>5 THEN 780 

770 IF VL(Z(I))=1 THEN 79 
O0 ELSE I=I+1 GOTO 7 


30 

780 IF VL(Z(I))=0 THEN 79 
O0 ELSE I=1I+1 GOTO 7 
30 

790 T=T+1 :: DISPLAY AT(2 
*XT+3,1):USING "#":T :: 

IND(T)=Z(I) 

800 DISPLAY AT(2*T+3,3) :U 
SING "##":INT(X(Z(I))) 
-100*INT(X(Z(I))/1E2) : 
: DISPLAY AT(2*T+3,5): 
7" 

810 DISPLAY AT(2*T+3,6):U 
SING "##":INT(X(Z(I))/ 
1E2)-100*INT(X(Z(I))/1 
E4):: DISPLAY AT(2*T+3 
r 8) 0/1 

820 DISPLAY AT(2*T+3,9):U 
SING "##":INT(X(Z(I))/ 
1E4) 

830 IF LL=-1 THEN DISPLAY 
AT(2*T+3,12) : USING "## 
#####"INT(Y(Z(I))/1E3 
):: GOTO 850 

840 DISPLAY AT(2*T+3,12): 
USING "#######":BS(Z(I 


)) 

850 DISPLAY AT(2*T+3,20): 
USING "######.##":D(Z( 
I)) 

860 IF T=9 THEN 870 ELSE 
930 

870 ON K GOTO 900, 900, 900 
, 880,880,880 

880 CALL W :: T=0 

890 IF I>NB THEN 940 ELSE 


I=1I+1 GOTO 720 ELS 

E 880 
900 DISPLAY AT(24,1):MS(1 
9) :: T=0 CALI C1 (0, 


9,24,27,KY) 

910 IF KY=0 THEN CALL CLE 
AR :: IF I>NB THEN 940 
ELSE I=1+1 ©: GOTO ?2 
0 

920 IF (KY>L)+(KY<0) THEN 
870 ELSE GOSUB 950 
GOTO 710 

930 I=I+1 

940 RETURN 

950 GOSUB 970 
48 THEN RETURN 

960 CB=CB-D(IND(KY)):: CA 
ET: C(CB;CP;MS)) 22 YL 
ND (KY) )=Y (IND (KY) ) +1 
: RETURN 

970 CALL AF(MS(),12,17,18 
) 

980 ACCEPT AT(24,27)VALID 
ATE(DIGIT):KEY :: KEY= 
KEY+48 :: RETURN 


GOTO 730 


IF KEY<> 


990 OPEN #1:"CS1",INTERNA 
L,INPUT ,FIXED 64 

1000 INPUT #1:AN,CP,CB, NB 
, NB2, CH1 


1010 FOR I=1 TO 32 :: INP 
UT #1:LP(I),PS(I),U(I) 
/G{(XZ):: CALL CT(NB+32- 
I)£: NEXT I 

1020 FOR I=1 TO NB :: CAL 
L CT(NB-I+l1):: INPUT # 
LSD(E), X CE) 4 CUT), IL) 7 


BS$S(I):: NEXT I CLOS 
E #1 :: CALL DELSPRITE 
(ALL) :: GOTO 420 


1030 CALL AF(MS(),12,12,1 
4):: FOR I=1 TO 33 
S(I)=U(I)+G(I)-DM(I) :: 

NEXT I 

1040 OPEN #1:"CS1",INTERN 
AL,OUTPUT,FIXED 64 

1050 FOR I=1 TO NB :: IF 
VL(I)=0 THEN NB1=NB1l+1 

1060 NEXT I : PRINT #1:A 
N,CP,CB, NB1, NB2+NB-NB1 
, CH1 

1070 FOR I=1 TO 32 s: PRI 
NT #l:LP(I),PS(I),S(I) 


»G(T) ss CALE CT(32-I);: 
# NEXT TI 
1080 FOR I=1 TO NB :: IF 


VL(I)=0 THEN PRINT #1: 
D(I),X(I),C(I),Y(I),B$ 
(I) :: GOSUB 1210 :: GO 
SUB 1250 

1090 NEXT I CLOSE #1 
: CALE AF(M$(),12,13,1 
6) 22 DISPLAY AT(8,12);: 
"Ne pas Rembobiner" 
CALL W 

1100 OPEN #1:"CS2", INTERN 
AL, OUTPUT,FIXED 64 

1LÉOSFOR: TE=1. FO NB ° ss IF 
VL(I)<>0 THEN PRINT #1 
:D(I),X(I),C(I),Y(I),B 
S(I) :2 GOSUB 1210 :: G 
OSUB 1250 

1120 NEXT I 
: END 

1130 CALL AF(MS$S(),12,13,1 
4) 

1140 OPEN #1:"CS1",INTERN 
AL,INPUT ,FIXED 64 


CLOSE #1 


1150 FOR R=1 TO 33 :: Z(R 
)=0 :: NEXT R 
1160 FOR R=1 TO NB2 :: IN 


PUT #1:D(0),X(0),C(0), 
Y(0),BS$S(0):: GOSUB 120 
0 :: DISPLAY AT(3,2) :N 
B2-R+1 :: GOSUB 1250 : 
: Z(C(0))=Z(C(0))+D(0) 
1170 DISPLAY AT(24,5):"St 
op:Presser une touche" 
CALL KEY (0,MN,MX) : 
: IF MX=0 THEN 1190 
1180 CALL KEY(0,MN,MX) :: 
IF MX<>0 THEN 1180 ELS 


E I=3 :: GOSUB 1310 
1190 NEXT R :: CLOSE #1 
: GOTO 420 
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1200 K=C(0):: I=0 :: GOTO 
1230 
1210 K=C(I):: GOTO 1230 


1220 IF NB>29 THEN DISPLA 
Y AT(10,3)ERASE ALL:M$ 


(16):: CALL W :: GOTO 
420 
1230 CALL SCREEN(11-5*(K= 


32)):: DISPLAY AT(1,5) 
ERASE ALL:MS$(4):: DISP 
LAY AT(1,16):P$(K):: D 
ISPLAY AT(2,5):"*##*xx% 
KHRHHARÉRRHHRHHHXXXXIN 

1240 DISPLAY AT(6,5) :MS (2 
0):: DISPLAY AT(9,5) :M 
$(10):: DISPLAY AT(12, 
5):M$(11):: DISPLAY AT 
(15,5) :M$(9) :: RETURN 

1250 DISPLAY AT(6,19):BS( 
I):: DISPLAY AT(9,18): 
D(I) 

1260 DISPLAY AT(12,18):X( 
I)-100*INT(X(I)/100):: 
DISPLAY AT(12,21):INT 
(X(I)/100)-100*INT(X(I 
)/1E4) 


1270 T=INT(Y(I)/10)-100*I 
NT(Y(I)/1E3) 

1280 DISPLAY AT(12,24):IN 
T(X(I)/1E4):: DISPLAY 
AT(15,19):LPS(T):: IF 
INT(Y(I)/1E3)>0 THEN D 
ISPLAY AT(17,18):INT(Y 
(I) /1E3) 

1290 RETURN 

1300 DISPLAY AT(1,5):MS(I 
):: RETURN 

1310 GOSUB 490 
300 

1320 FOR J=1 TO 16 :: DIS 
PLAY AT(3+J,17) : USING 
U##H##HE.##":IZ(J):: NE 
XE' 

1330 ON I GOTO 1340,1350, 
1340,1360 
1340 CALL W :: 
1350 GOSUB 530 CALI C1 
(0,16,24,27,;K):: IE (K 
<1)THEN 1370 ELSE CALL 
C1(-1E6,1E6,K+3,18,2( 
K)):: CALL AR(Z(K)):: 

GOTO 1320 

1360 GOSUB 530 CALL Cl 
(0,,32,24,27%K)%: IE (K 
<1)+(K>16)THEN 1370 EL 


GOSUB 1 


GOTO 1370 


SE GOSUB 540 GOTO 1 
310 

1370 GOSUB 500 GOSUB 1 
300 

1380 Z2(33)=0 :: FOR J=1 T 
O 32 :: Z(33)=Z(33)+2Z( 
J) :: NEXT J :: FOR J=1 
7 TO 32 :: DISPLAY AT( 


J-13,17) :USING "###### 
#.##":Z(J):: NEXT J 
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1390 DISPLAY AT(21,15) :US 
ING "#A#EAAHHEE. HAN Z (3 
3) 
1400 ON I GOTO 1410,1420, 
1410,1430 
1410 CALL W :: 
1420 GOSUB 530 CALL C1 
(0,,32:24,27,K)z2% IF (K 
<17)THEN RETURN ELSE À 
CCEPT AT(K-13,18):Z(K) 
:: GOTO 1380 

1430 GOSUB 530 :: CALL C1 
(0,;.32,24,07,K) 22 LE K< 
17 THEN RETURN ELSE GO 
SUB 540 :: GOTO 1370 

1440 SUB CLAS(Z(),X(),NB) 

1450 DISPLAY AT(12,4):"Pa 
tientez je classe" 

1460 FOR I=1 TO NB :: ZI 
)=0. :: NEXT I :: R=0 : 
: =-1E8 

1470 FOR J=1 TO NB :: MX= 
1E8 

1480 FOR I=1 TO NB :: IF 
X(I)=MN THEN 1490 ELSE 
1520 

1490 FOR K=1 TO NB :: IF 
Z(K)=I THEN 1510 


RETURN 








[IT TU 
DOTE 
[CLTETE CE COTE TEE TTTTUN 
CDTI CETTE TETITNN 
OCT TE CT EC LE TT TE TN 
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1500 NEXT K :: 
(R) =I 

1510 IF R=NB THEN 1570 EL 
SE 1550 

1520 IF X(I)<MN THEN 1550 


R=R+1 :: 2Z 





1530 IF X(I)>MX THEN 1550 


1540 MX=X(I):: L=I 

1550 NEXT I 

1560 MN=MX :: R=R+1 :: Z( 
R)=L :: NEXT J 


1570 CALL CLEAR :: SUBEND 

1580 SUB C1(MN,MX,I,J,K) 

1590 ACCEPT AT(I,J)BEEP V 
ALIDATE (NUMERIC) :K :: 
IF (K<MN)+(K>MX) THEN 1 
590 

1600 SUBEND 

1610 SUB W 

1620 DISPLAY AT(24,3):"Ap 
puyer sur une Touche" 

CALL KEY(0,KEY,ST): 

: IF ST=0 THEN 1620 

1630 SUBEND 

1640 SUB C(CB,CP,MS()):: 
CALL SCREEN(10):: DISP 
LAY AT(6,1)ERASE ALL:M 
S(T):CP :3 DISPLAY AT( 
10,1) :M$(8);CB 


1650 DISPLAY AT(14,1):"DI 
FE, (CPB-CB = "CPECEB ; 
: CALL W :: CALL SCREE 
N(4):: CALL CLEAR :: S 
UBEND 

1660 SUB AR(MX):: MX=1E-2 
*INT(100*MX) :: SUBEND 

1670 SUB M(I,J):: CALL CL 


EAR :: ON J GOTO 1680, 
1690,1700, 0 

1680 RESTORE 110 GOTO 
1720 

1690 RESTORE 120 GOTO 
1720 

1700 RESTORE 150 :: GOTO 
1720 

1710 RESTORE 130 GOTO 
1720 

1720 CALL SCREEN(4-10* (J= 
2)):: READ AS$ :: DISPL 
AY AT(1,4):AS 

1730 FOR J=1 TO 10 :: REA 


D AS :: IF A$="" THEN 
1750 ELSE DISPLAY AT (2 
*J+2,2) : J'A$ 

1740 NEXT J 

1750 DISPLAY AT(24,4):"Vo 
tre Choix ?" :: ACCEPT 
AT (24,27) VALIDATE (DIG 
TT) AE à IF (I<1)+(I>= 
J) THEN 1750 

1760 CALL CLEAR :: SUBEND 

1770 SUB AF(MS$S(),MO,JO,MX 


) 

1780 CALL SCREEN(7):: DIS 
PLAY AT(8,2)ERASE ALL: 
M$ (MO) :: DISPLAY AT(12 
, 2) :M$ (J0) :: DISPLAY À 
T(16,2):M$S(MX):: SUBEN 


DISPLAY 
: SUBEND 


D 
1790 SUB CT(I):: 
AT(16,14):I 


Haute résolution 


Alexandre Amortilla 


La haute résolution graphique du 
TI-99/4A reste encore un de ses 
aspects les plus intéressants. Le 
programme que nous vous 
proposons ici (garanti sans 
‘bugs’) requiert le Basic Étendu, 
une extension 32Ko et un lecteur 
de disquettes. 


Chargement 


Les routines sont chargées par : 
CALL LOAD ("DSK1.SCRO") 

à condition, bien sûr, d'avoir 
donné “SCRO” comme nom de 


code objet au moment de 
l'assemblage. 


La bonne idée serait de mettre le 
programme (LOAD) suivant sur 
la disquette 1 : 


10 CALL INIT:: DISPLAY 
AT(18,8)ERASE ALL:"Un 
instant SVP...":: CALL 
LOAD ("DSK1.SCRO") 


Après chargement, on se trouve 
automatiquement en CALL 
FILES(1) avec la définition des 
touches suivantes : 


+ FCTN-6 : passage en mode 
haute résolution graphique 
("SCR2") ; 

+ FCTN-S : retour au mode 
32*24 ("SCR1"). 


À cet instant, on a à notre 
disposition les fonctions 
suivantes : 


+ CALL LINK("SCR2") 
passage en mode BitMap ; 
+ CALL LINK("SCRI") 


retour au mode texte. Dans ce 
mode, les instructions 
graphiques sont sans effet. 

+ CALL LINK('POINT", 
couleur, y,x) ; 

+ CALL LINK("CERCLE", 
couleur,y centre,x centre, 
rayon) ; 

+ CALLLINK('LIGNE", 
couleur,y,x{,y',x']) ; 
si y'et x' ne sont pas fournis, 
la ligne tracée démarre de la fin 
de la ligne précédente jusqu'à 
y,y, ou bien de l'origine fixée 
par ‘ORIGIN’ jusqu'à y,x ; 

+ CALL LINK('ORIGIN",y,x) 
pour fixer l'origine de la ligne 
suivante ; 

+ CALL LINK('CLEAR") 
pour effacer l'écran graphique. 

+ CALL LINK("SAUVE", 
"DSKn.nomdessin") ; 

+ CALL LINK('CHARGE", 
DSNn.nomdessin"). 


‘Contraintes 


Comme chacun de nous 

l'imagine, la haute résolution 

graphique sur le TI et avec le 

Basic Etendu n'est obtenue qu'au 

prix de quelques restrictions et 

contraintes ; il y en a trois : 

* tout programme graphique doit 
démarrer par la ligne suivante : 
10 CALL LOAD(-31890,56,24):: 
CALL LOAD(-31964,56,24) 

. onest en CALL FILES(1), soit 
un seul fichier ouvert à la fois ; 

* interdiction d'utiliser Ja 
directive d'assemblage ‘DEF’. 





Source de la routine 


en assembleur 


en temps réel 


Dessiner sur l'écran du TI en 
Basic Etendu, avec seulement ces 
trois restrictions, permet 
d'admirer l'évolution en temps 
réel des “Splines” de Gérard 
Santraille, ce qui, à notre avis, 
n'a pas de prix. - 


Le ‘source “SCRS” 
intéressant à plusieurs titres : 


* on y trouve la routine de dessin 
de cercles réguliers, d'une 
façon rapide et optimisée ; 

+ la routine de tracé de lignes 
fines, sans double épaisseur 
pour les lignes obliques ; 

+ la routine ‘DSRLNK’ qui 
manquait cruellement au Basic 
Etendu (qui contient 
l'équivalent, mais en GPL). 


est 


Interruption du 
programme 


Pour interrompre un programme 
en cours, appuyer simultanément 
sur FCTN puis 5 puis 4 : on 
obtient un BREAK avec retour 
instantané au mode texte. 

Faites la mise au point de vos 
programmes graphiques en 
mettant REM avant l'instruction 
CALL LINK("SCR2"). Une 
interruption en mode BitMap ne 
déclenche pas le retour au mode 
texte. FCTN-4 remet l'écran dans 
ce mode mais le message 
d'erreur, très utile pour la mise au 


point, sera perdu. 
99 





DEF 
DEF 
VSBR EQU 
VSBW EQU 





SCR1, SCR2, POINT, LIGNE, CLEAR 
ORIGIN, SAUVE, CHARGE, CERCLE 
>2028 
>2020 
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VMBR EQU >202C 
VMBW EQU >2024 
NUMREF EQU >200C 
XMLLNK EQU >2018 
STRREF EQU >2014 
ST EQU >837C 
AXKXXX 

BUFF1 EQU >A000 
BUFF2 EQU BUFF1+>A00 
WS1 ESS 32 
WS2 BSS 32 





COULP BYTE 0 Color point 
COULE BYTE 0 Color ecran 
BITMAP DATA 0 Flag scr2/scrl 
FLAG DATA 0 1 si appel scr2 par 
ae clavier: FOTN/6 emmené 
REGZ2 DATA >280,>A081,>682,>FF83,>384 MOVB 2,@>8C02 
DATA >3685,>786,>1187,0 JMP SCR23 
REG1 DATA >80,>A081,>82,>2083,2>84 SCR21 CLR 0 cnlsl 
DATA >685,>86,>787,0 LI 1,BUFFI1 # 
RVDP1 DATA >E081 LI 2,>A00 Æ 
À A A A A 6 fe 2 ee 6 € € € BLWP (@VMBR * 
CE1 BLWP @VSBW LI 1, BUFF2 * 
JMP  $+6 BLWP @VMBW ____* 
MOVB 1,@>8C00 LI 0,>1B00 
DEC 2 LI 1,>D000 
UNE S$-6 BLWP @VSBW 
RT CLR 1 
XXXXX ZT 2,768 
CLEAR LWPI WS1 LI 0,>58 
LI 0, BUFF2 MOVB 0,@>8C02 
LI 2, BUFF2+>A00 SWPB 0 
CL4 CLR *0+ MOVB 0, @>8C02 
G 0,2 SCR22 SWPB 1 
UNE CL4 MOVB 1,@>8C00 
MOV  @BITMAP, GBITMAP SWPB 1 
UNE CL2 INC 1 
LI 0,>A00 - € 4,2 
LI 2,2>E00 UNE  SCR22 
JMP CL3 MOVB @RVDP1,G@>83D4 
CL2 CLR 0 MOV @RVDP1,0 
LI 2,>1800 * MOVB 0, @>8C02 
CLS CLR: 4 SWPB 0 
BL @CL1 MOVB 0,@>8C02 
LI 0,>2000 MOV  (@BRET, 11 
LI 2,>1800 RT 
BL @CLl XHHRHHAHXXXX À # 
B @RETOUR SCR2 LWPI WS1 
xxx BIT-MAP ARHHRHAHHHXHÉ XX BL @SCR20 
SCR20 MOV 11,@BRET MOV G@FLAG, @FLAG Appel par clavi 
MOV C@BITMAP, @BITMAP UNE SCR25 
UNE RETOUR RETOUR CLR Q@FLAG 
SETO CBITMAP CLR RO 
MOVB @REG2+2,@>83D4 MOVB RO, @ST 
LI 1,REG2 LWPI >83E0 
SCR23 MOV *1+,2 B @>70 
JEQ SCR21 SCR25 LWPI >83E0 
MOVB 2,@>8C02 BL QDE 
SWPB 2 LWPI WS1 
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CB @RCLAV, @GBEGIN 
UNE  SCR25 
JUMP  SCRI 


**X**x*x GRAPIC MODE *#*X*X#XXXAXXXXXX XX 


SCR10 


SCR12 


* 


SCR11 


MOV 11,@BRET 

MOV  @BITMAP, @BITMAP 
JEQ RETOUR 

CLR @BITMAP 

MOVB @REG1+2,@>83D4 
LI  l1,REGI 

MOV *1+,2 

JEQ SCRI11 

MOVB 2,@>8c02 | 
SWPB 2 ani que FE 
MOVB 2,@>8C02 mie oe-it 
JMP  SCR12 

CLR O0 imite À 

LI 1l,BUFF1 

LI 2,>A00 * 
BLWP @VMBW # 
MOVB G@RVDP1, @>83D4 
MOV G@RVDP1,0 

MOVB 0,@>8C02 

SWPB 0 

MOVB 0,@>8C02 

MOV @BRET, 11 

RT 





+kkktttt HE 


SCRI 


LWPI WS1 
BL @SCR10 
JMP RETOUR 


HÉHHÉHAARARÉRAAHÉARAHÉARÉAÉAÉHÉ EH A HA XX X 


FC 
GN 


REGA4 
DESSIN 


EQU >834A 
BLWP @NUMREF 
BLWP G@XMLLNK 


DATA >12B8 CFI 

RT 
HHHRHÉAAARHÉARHÉLAHXA XXE XX HAE A HE EH É À À À 

DATA 0 

CT 1,191 R1=Y 

JH NOD 

CI 0,255 RO=X 

JH NOD 

MOV 4,G@REG4 R4 est utilise 

MOV  R1,R4 par cercle 

SLA R4,5 

SOC R1,R4 

ANDI R4,>FF07 

A RO, R4 

ANDI RO,7 

S RO, R4 

LI R3,>8000 

SRC ‘R3,0 

STWP 1 

CI R4,2>A00 

JGT DESS1 


SOCB 3, @BUFF2 (R4) 
MOVB @BUFF2(R4),3 
JMP  DESS2 


DESS1 MOVB @9(1),@>8C02 1sb of R12 
MOVB R4,(@>8C02 
SOCB @>8800,3 
DESS2 MOVB @9(1),@>8C02 
ORI R4,>4000 
MOVB R4,@>8C02 
MOVB 3,(@>8C00 
**X**X#XX COLOR 
MOVB @9(1),@>8C02 
AI R4,>2000 
MOVB R4,@>8C02 R5=COLOR 
MOVB G@COULP,@>8C00 
MOV @REGA4, 4 


NOD RT 
HRHHAHAARÉARHAHÉAÉÉAARHAHÉAÉRÉAÉHÉHAH XX XX 
SAISIE CLR RO NOT ARRAY 
ELEMENT, R0=1 (ARRAY) 

MOV R11,RI12 POUR RT 

ft:  Hd,i FIRST ELEMENT 

BL  @GN 

MOV @FC,R5 COULEUR 

DEC R5 

SLA 5,12 

MOVB 5, @COULP 

c R1,R10 COMPTEUR 

JEQ PLEIN 

INC RI 

BL  @GN 

MOV @FC,R6 Y 

C R1,R10 

JEQ PLEIN 

INC RI 

BL  @GN 

MOV  @FC,R7 x 

ë R1,R10 

JEQ PLEIN 

INC R1 

BL  @GN 

MOV  G@FC,R8 Y' OU RAY CERCLE 

é R1,R10 

JEQ PLEIN 

INC RI1 

BL G@GN 

* MOV @FC,R9 x! 

PLEIN B *R12 


HÉAKHHAAARARAAXAHAÉ A X HÉ X X 


POINT LWPI WS1 
MOV  @BITMAP, @BITMAP 
UNE POINTI 


B @RETOUR 
POINTI LI R10,3 3 PARAMETRES 
BL @QSAISIE 
MOV R6,RI1 
MOV R7,RO 
BL @DESSIN 
B @RETOUR 


HHHHARHAHAAARAHAXHA EEE A 


ORIGIN LWPI WS1 
MOVB @>8312,10 
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SRL 
CT 
JEQ 
OR2 B 
OR1 CLR 
LI 
BL 
MOV 
INC 
BL 
MOV 
UMP 


10,8 
10,2 
OR1 
@RETOUR 
0 

1,1 

@GN 
QFC, @Y1 
1 

GGN 
QFC, @X1 
OR2 


HHHHHRHAHAXAXAHARHA HA RÉ XX 


Y1 BSS 
X1 BSS 
LIGNE LWPI 
MOV 
UNE 
B 
LIGNEL MOVB 
SRL 
BL 
CT 
JEQ 
CE 


UMP 
LIGNEZ2 MOV 
MOV 
MOV 
MOV 
LIGNE3 MOV 
MOV 
CLR 


LIG2 MOV 


LIG6 B 
LIG4 MOV 


2 

2 

WS1 
@BITMAP, @BITMAP 
LIGNE1 
@RETOUR 
@>8312,10 
10,8 
@GSAISIE 
10,3 
LIGNEZ2 
10,5 
LIG6 
LIGNE3 
6,8 

7,9 
@Y1,6 
@X1,7 
R8, @Y1 
R9,CX1 
R12 
R14,1 
R15, 1 
R7,R9 
S$+4 

S$+6 

R14 

R9 
R9,R9 
$+4 

R12 
R6,R8 
$+4 
LIG2 
R15 

R8 
R7,R0 
R6,R1 
@DESSIN 
R7, @X1 
LIG4 

14 

R6, QY1 
LIG4 
@RETOUR 
R12,R12 


LIGS 


LIG3 


JLT 


JLT 


UMP 


L1IG3 
R14,R7 
R8,R12 
LIGS5 
LIG2 
156 
9,12 
LIG2 
15,6 
9,12 
LIG2 
14,7 
8,12 
LIG2 


HHAHHAHAÉÉAX AXE AA EX AH AÉ A XX HA EE À X 


RCLAV 
BEGIN 
PROC 


xxx 


INTER 


INTI1 


INT2 


XAXAXX 
DEL 
FIL3 
FILI 
FILES1 


FIL2, 


XXHKXHHXX 


DAA 
D20 
D2E 


xxx 


DSRLNK 


EQU 
BYTE 
BYTE 


CB 
JEQ 
CB 
JEQ 
RT 
MOV 
JEQ 
B 
MOV 
UNE 
SETO 
B 


DATA 
DATA 
DATA 
INC 


BLWP 
MOV 
RT 


LI 
LI 
LI 
BLWP 
LI 
MOV 
LI 
RTWP 


BYTE 
BYTE 
BYTE 
EVEN 


DATA 
MOV 
SZCB 


>8375 
14 
12 


@RCLAV, @BEGIN 
INT1 

@RCLAV, GPROC 
INT2 


@BITMAP, @BITMAP 

RET 

@SCRI 

@BITMAP, GBITMAP 

RET 

@FLAG attendre l'appui 
@SCR2 sur begin 


50 

0 
>AA3F,>FF11,2>100 
QFIL3 

@FIL3, @DEL 

RET 

QFIL2 
@WS1,@>83C4 


WS1,FIL2+4 
0, >3BE4 
1,FILI 

2, 5 

GVMBW 

0, >3BE3 
0,@>8370 
0,INTER 


>AA 
>20 
>2E LL , "” 


>209A, DSRLNK +4 
*14+,5 
@D20,15 
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19 


MOV 
MOV 
AI 
BLWP 
MOVB 
SRL 
SETO 
LI 
S001 INC 
INC 


JEQ 
BLWP 
MOVB 
CB 


S000 MOV 
JEQ 
CT 
JGT 
CLR 
MOV 
MOV 
INC 


MOV 
LWPI 
CLR 
LI 
S005 MOV 
JEQ 
SBZ 
S003 AI 
CLR 
CT 
JEQ 
MOV 
SBO 
LI 
CB 


JMP 
5008 MOV 
SBO 
5006 MOV 
JEQ 
MOV 
INCT 
MOV 
MOVE 
JEQ 


SRL 


S009 CB 


DEC 


@>8356, 0 
0,9 
9,>FFF8 
@VSBR 
1,3 

3, 8 


4 
2,>208C 
0 
4 


4,3 

S000 
@VSBR 

1, *2+ 

1, @D2E 
S001 

4,4 

S002 

4,7 

S002 
@>83D0 
4,0>8354 
4,@>2036 
4 
4,0>8356 
@>8356,C0>2038 
>83E0 

1 
12,>F00 
12,12 
S003 

0 
12,>100 
@>83D0 
12,>2000 
S004 
12,0@>83D0 
0 
2,>4000 
42, @DAA 
S005 
@>202A4,2 
S006 
@>83D2, 2 
0 

*x2, 2 
S005 
2,G0>83D2 
2 

*2+,9 
@>8355, 5 
S007 

5, *2+ 
S008 

5, 8 

6, >208C 
*6+, *2+ 
S008 

5 


S007 INC 
MOV 
MOV 
MOV 
BL 
JMP 
SBZ 
LWPI 
MOV 
BLWP 
SRL 
UNE 
RTWP 
S004 LWPI 
S002 CLR 
S010 SWPB 
MOVB 
SOCB 
RTWP 


S009 

1 

1, G>203A 
9, @>2034 
12, @>2032 
+9 

S008 

0 

>209A 
9,0 
GVSBR 
1,13 
S010 


>209A 

si 

1 

1, *13 
@D20,15 


#AHHHHHXHHH XX XX 


PAB EQU 
PLONG EQU 
FLAGI DATA 
FLAG2 DATA 
BRET DATA 
SAVE DATA 
LOAD DATA 
DSK DATA 
- TDSK TEXT 
EVEN 
LNOM EQU 
+4 XX 
SAIS# DATA 
SAIS MOV 
CLR 
MOV 


SAIS1 LI 


LI 
BLWP 
MOV 
RT 
Rd Œ. DS Ed 
SAUVE LWPI 
SETO 
BL 
MOV 
CLR 
LT 
ar 
BLWP 
JMP 
CHARGE LWPI 


>3800 

>8356 

0 1>sauve 2>charge 
0 1 si appel sauv/ 
0 charge en SCRI1 
>600 

>500 

0,0,0,>1800,0 


! 


DSK+9 


0 Return bufer 
11,@SAIS# 

QFLAG2 

@BITMAP, CBITMAP 
SAIS1 

@FLAG2 Appel en SCRI 
@SCR20 

0,>F00 

0, @GLNOM 

0 

14 

2, LNOM 

@STRREF 

QSAIS#,11 


WS1 

QFLAGI 

@SAIS 

@SAVE, @DSK 

0 Re | 
1, BUFF2 * 
2,>A00 * 
QVMBW * 
SACH 

WS1 
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SACH 


SACH3 


SACH4 


SACH1 


SACH2 


*+xxx 


ERR 


ERR1I 


#XHXHAXX 


CERC1 


CLR 
BL 
MOV 
LI 
LI 
LI 
BL 
LI 
LI 
LI 
BLWP 
LT 
MOV 
CLR 
MOVB 
BLWP 
DATA 
JEQ 
MOV 


CLR 
LI 
LI 
BLWP 
CLR 
MOVB 
MOVB 
MOVB 


MOVB 
ORI 
MOVB 
MOVB 
ANDI 
INC 
CT 


MOV 
JEQ 


MOV 
JEQ 
BL 
LI 
MOV 
LWPI 
SOCB 
LI 
MOV 


MOV 
MOV 


MOV 


QFLAG1 
QSAIS 
@LOAD, @DSK 

0,>2000 ---*Couleur blanc 
1,>F000 *sur transpar. 
2,>1800 * 
@CL1 . 
0,PAB 

1,DSK 

225 

QVMBW 

0,PAB+9 

0, GPLONG 

2 

1,@>837C 
@DSRLNK 

; ‘ 

ERR 

QGFLAG1, G@FLAGI 
SACH1 

0 PR 

1, BUFF2 x 
2,>A00 *X 
GVMBR ____* 

0 ss 3 
@WS1+1,C>8C02 
0,@>8C02 
@>8800,1 

SACH4 
QWS1+1,@>8C02 
0,>6000 

0, @>8C02 
1,@>8C00 
0,>1FFF 

0 

0,>1800 

SACH3 

QFLAG2, @FLAGZ 
SACH2 

@SCR1I 

@RETOUR 


0=charge 


1=sauve 


M 6 6 À % Où % € À + *% 


Si appel en 
SCR1 


@BITMAP, @GBITMAP 
ERRI 
@SCR10 
0, >2D00 
0,@>8322 
>83E0 
@>11B, @>837C 
1, PAB 
1,@>831C 
@>70 


1/0 ERR CODE 


2, GWS1 
4, @WS1+2 
Sy e 

4,4 

33 
@wS1, 2 


MOV 


RT 
DATA 
CLR 
MOV 
MOV 
DEC 
 } 
JGT 
JLT 
MOV 
MOV 
BL 


CERC 


MPY 
MOV 
LI 

B MOV 
MOV 


B1 


BL 
MOV 
MOV 


BL 
MOV 
MOV 


BL 
MOV 
MOV 


[e) 


U) 


BL 
MOV 
JEQ 
INC 
BL 
JHE 
JUMP 
Y DEC 
BL 
JHE 
UMP 
DEC 
UMP 
RTWP 
LWPI 
LI 
BL 
BLWP 
B 
AORG 
ROUTINE 
DATA 
END 


YY 


FIN 
CERCLE 


QWS1+2, 4 
5; 10 


WS2, CERC+4 
2 
@16(13),10 R 
10,4 

4 

10,1 

B1 

FIN 
@14(13),0 
@12(13),1 
@DESSIN 
FIN 

10,10 

AT /E0 
12,CERCI1 
@14(13),0 
@12(13),1 
2,0 

4,1 
@DESSIN 
@14(13),0 
@12(13),,1 
2; 0 

4,1 
@DESSIN 
@14(13),0 
@12(13),1 
25 0 

4,1 
@DESSIN 
@14(13),0 
@12(13),1 
270 

451 
@DESSIN 
4,4 

FIN 


WS1 
10,4 
@SAISIE 
@CERC 
@RETOUR 
>83C4 USER INTERRUPT 


FILES1 
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Programme de 
démonstration 


1 CALL LOAD(-31890,56,2) : 
: CALL LOAD(-31964,56, 

0) 
2 Z1,V7,U7,K7,CC=DD !Pour 
un programme en TI-ba 
sic,supprimer les lign 
es 5-20 ainsi que la 2 
e partie de 90,et remp 
lacer la ligne 620 par 


621 
3 GOTO 5 :: CALL PEEK :: 
CALL CLEAR :: CALL LOA 


D £: CALL LINK #2 XF,Y 
F,Z,UU,AD,AD1,A,B,REP, 
N,E1,E2,E3,XA, YA, XB, YB 
FAC TCrXD XD; TL XP, YP.,X 
O, 10: XV TT; T2; Cr XA> 
Y1,X7,Y7,DI,AA,BB,M7,M 
8=M9 

4 !@P- 

5 CALL PEEK(-31866,A,B):: 
AD=A*256+B-65535+4652 
1-31866=-END OF FREE S 

PACE. 4652=NUMERIC VAL 
UES TABLES 

10 CALL PEEK(AD,A,B):: AD 
=AD+4 :: IF A*256+B<>6 
20 THEN 10 

20 CALL PEEK(AD-2,A,B):: 
AD=A*256+B-65536 

70 X1=0 :: Y1=0 

80 CALL CLEAR :: DISPLAY 
AT(5,3)BEEP:"CHOISISSE 
Z UN NOMBRE ? 0 
PR PES PE CPE CN: RE 

ACCEPT AT(9,3)VALIDAT 
E (DIGIT) : REP 

85 CALL LINK("CLEAR"):: C 
ALL LINK("SCR2") 

90 ON REP+1 GOSUB 100,101 
7 102;103:104,105;106 1 
07,108 :: AD1=5000+REP 
*100 :: A=INT(AD1/256) 
:: B=AD1I-A*256 :: CALL 

LOAD (AD+2,A,B):: GOTO 
200 

100 N=30 :: PA=3 :: E1=2 
2e E2sl.z:: KA=128 se Y 

A=5 :: XB=250 :: YB=55 
ss XC=110 55 YC=150 
: XD=10 :: YD=105 :: R 
ETURN 

101 N=20 :: PA=3 :: E1l=2 
:: E2=0 :: XA=85 :: YA 
=0 :: XB=255 :: YB=65 
:: XC=170 :: YC=191 
XD=0 :: YD=125 :: 
URN 

102 N=45 :: 
:: E2=0 
A=0 :: 


RET 


PA=2 :: E1=2 
sie XA=128 se Ÿ 
XB=254 :: YB=96 
YC=190 : 
YD=96 :: RET 


> XC=128 £: 

: XD=0 :: 
URN 

103 N=30 :: PA=3 :: 


E1=2 


:: E2=0 :: XA=80 :: YA 
=0 :: XB=220 :: YB=45 

:: XC=160 :: YC=130 :: 
XD=10 :: YD=69 :: RET 
URN 

104 N=31 :: PA=2 :: E1l=2 
se E2=0: ;e XA=128 »s Y 
A=15 :: XB=255 :: YB=8 
O0 :: XC=128 :: YC=160 
:: XD=0 :: YD=80 :: RE 
TURN 

105 N=66 :: PA=2 :: El=1 
:: E2=0 :: XA=128 :: Y 
A=0 :: XB=255 :: YB=85 

:: XC=128 :: YC=170 : 
: XD=0 :: YD=85 :: RET 
URN 

106 N=54 :: PA=1 :: El=1 
:: E2=0 :: XA=80 :: YA 
=20 :: XB=255 :: YB=20 

fs XC=197515% YC=LII 
: XD=0 :: YD=111 :: RE 
TURN IN=36 

107 N=40 :: PA=2 :: El=2 
:: E2=0 :: XA=100 :: Y 
A=10 :: XB=255 :: YB=9 
O0 :: XC=155 :: YC=170 
:: XD=0 :: YD=90 :: RE 
TURN 

108 N=30 :: PA=2 :: El=2 
:: E2=0 :: XA=85 :: YA 
=0 :: XB=255 :: YB=30 
:: XC=170 :: YC=90 :: 
XD=0 :: YD=60 :: RETUR 
N 

199 !@P+ 

200 M=255/PA :: 
5),MI(255) 

201 !G@P- 

300 FOR I=0 TO M :: 
=-500 :: 
NEXT I 

500 FOR I=0 TO N 

510 XP=(I*XD+(N-I) *XA) /N 

520 YP=(I*YD+(N-I) *YA)/N 

530 XQ=(I*XC+(N-I) *XB) /N 

540 YQ=(I*YC+(N-I) *YB) /N 

550 IF E3=1 THEN Y=I/N EL 
SE X=I/N 

560 II=INT(XP/PA):: IZ2=IN 
T(XQ/PA):: G=SGN(I2-I1 


DIM MA (25 


MA (I) 
MI(I)=500 :: 


) 
600 FOR J=I1 TO IZ2 STEP G 
610 IF E3-1 THEN X=(J-I1) 
/(I2-I1)ELSE Y=(J-I1)/ 
(T2=-11) 
620 GOSUB 5100 
630 XF=J*PA 
640 YF=((J-I1) *YO+(I2-J) * 
YP)/(I2-I1) +2 
700 IF J=II1 THEN CALL LIN 
K("ORIGIN",191-YF,XF) 
710 IF E2-1 THEN 760 
720 IF YF>MI(J)AND YF<MA( 
J) THEN CALL LINK("ORIG 


IN",191-YF,XF) :: GOTO 
800 

740 IF YF>MA(J) THEN MA (J) 
=YF 


750 IF YF<MI (J) THEN MI (J) 
=YF 

760 CALL LINK("LIGNE",16, 
191-YF, XF) 

800 NEXT J 

900 NEXT I 

1000 IF El=1 THEN 9999 

1010 E3=1 :: El=1 

1020 UU=XD :: XD=XB :: XB 
=UU 

1030 UU=YD :: 
=UU 

1050 GOTO 300 

5000 Z=-40*SIN(2*PI*Y) *SI 
N(PI*X):: RETURN 

5100 X7=2#X-1 :: Y7-2*Y-1 

ss DI=X7*XTH#Y74YT 23 

IF DI<1 THEN Z=SQOR(1-D 
I)ELSE Z=0 

5110 Z=60*Z :: RETURN 

5200 Z=50*SIN(2*PI*Y) *SIN 
(3*PI*X):: RETURN 

5300 X7=2*X-1 :: Y7=2*Y-1 

5310 AA=SQOR(1-X7*X7) * (ABS 
(Y7)+.5):: BB=.7*SQ0R(1 
-Y7*Y7) * (ABS(X7)+.5) 

5320 IF BB>AA THEN AA=BB 

5330 Z=60*AA :: RETURN 

5400 DI=8*SOR((X-.5)*(X-. 
5)+(Y-.5)*(Y-.5)):: Z= 
40*COS (DI) :: RETURN 

5500 DI=16*((X-.5)*(X-.5) 
RL, SNS E=.5)) 

5510 Z=100*COS (4*DI) *EXP ( 


YD=YB :: YB 


-DI) :: RETURN 

5600 X7=X :: Y7=Y :: K7=0 

5610 K7=K7+1 :: IF KI>5T 
HEN Z=0 :: RETURN 

5620 U7=INT(3*X7):: X7=3% 
X7-U7 

5630 VY=INT(3*Y7):: Y7=3* 
Y7-V7 


5640 IF U7<>1 OR V7<>1 TH 
EN 5610 

5650 Z1=.5-ABS(X7-.5):: Z 
=,5-ABS(Y7-.5):: IF Z1 
<Z THEN Z=21 

5660 Z=(500/3"K7)*Z :: RE 
TURN 

5700 X7=2*X-INT(2*X):: Y7 


=2#Y-INT(2*Y):: AA=1.5 
-6*ABS(X7-.5):: BB=1.5 
-6*ABS(Y7-.5):: IF BB< 


AA THEN AA=BB 
5710 CC=.5-2#ABS(X7-.5) :: 
DD=.25-ABS(Y7-.5):: I 
F CC>AA THEN AA=CC 
5720 IF DD>AA THEN AA=DD 
5730 Z=40*AA :: RETURN 
5800 X7=2*ABS(X-.5):: Y7= 
2*ABS(Y-.5):: M7=X7+Y7 
:: M8=INT(3*M7):: M9= 
3*M7-M8 :: Z=0 
5810 IF M9>.8 THEN Z=5*(M 
9-.8) 
5820 Z=136-24*(Z+M8):: RE 
TURN 
9999 GOTO 9999 
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Alligator 


Bernard Legrand 


Ce jeu éducatif est très largement 
inspiré du célèbre module 
“Alligator Mix” de Texas 
Instruments. 


Différents menus vous offrent le 
choix entre plusieurs options de 
jeu. Le programme vous guide 
pas à pas, ce qui fait qu'un mode 
d'emploi serait ici superflu. 


Le but est de faire manger la 
pomme mobile par le crocodile 
lorsque la réponse contenue par le 
fruit en correcte. Chaque pression 
sur la touche ‘espace’ ouvre ou 
ferme la gueule de l'animal. 


Programme 
“Alligator savant” 


Basic Étendu 


100 
110 
120 
130 
140 
150 
160 
170 
180 


REM 

REM 

REM XRHHHRHRHRHAHRHRHHXX 

REM **ALLIGATOR** 

REM ** SAVANT ** 

REM HHKHHRHRHAHÉHAHHXX 

REM 

REM 

DIM OP$(3),STAT (4,2), 

0$(4),S$(4) 

190 CALL CLEAR :: CALL MA 
GNIFY(3):: RANDOMIGZE : 
: FIN,COR,FAUX=0 :: GO 
TO 1190 

200 REM 

210 REM DEBUT DE LA BOUCL 
E 

220 REM PRINCIPALE 

230 REM 

240 CALL SPRITE(#8,140,1, 

FJ,.35,#7,136,1,F9,21,# 

6,124,1,F2J,35,#5,120, 

1,F2J,18) 
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ALLIGATOR 


SAVANT 


bé 
“Rss 
“ahenb 
4 


PRÈSSE UNE TEUCHE 


CPEFELTESEE TELE EEE EEE EELTEEE LES TEE EEE EC EEE ECC ECELEEEECEECE EEE 


250 CALL MOTION(#5,0,SPD, 
#6,0,SPD, #8,0,SPD, #7,0 
, SPD) 

260 CALL COLOR(#5,2,#6,2, 
#7,16,#8,16):: CALL CO 
LOR(8,2,16):: FLG=0 

270 CALL KEY (0,K;S):: IF 
S=0 THEN 300 

280 IF FLG=0 THEN FLG=1 E 
LSE FLG=0 : 

290 CW=96+20*FLG :: CALL 
HCHAR (FA,FB,CW) :: CALL 
HCHAR (FA,FD,CW+2):: C 
ALL HCHAR(FC,FB,CW+1) : 
: CALL HCHAR(FC,FD, CW+ 
3) 

300 CALL COINC(#8,FJ,GJ, 6 
,; COIN) :: IF COIN=0 THE 
N 270 

310 CALL DELSPRITE (ALL) : : 

CALL SPRITE(#7,136,16 
, FJ, GJ-12,#8,140,16,FJ 
,GJ+4,#5,120,2,F2J, GJ- 
12,#6,124,2,F2J,GJ+4) 

320 IF (FLG=0 AND X=1)OR( 
FLG=1 AND X=0)THEN 420 

330 REM 

340 REM ACTION FAUSSE 


PÉCRETE EEE TELLE ET ET EEE TELE EE EEE EC EEE EEE EEE EE EEE EC EEE EEE EE EEE 


350 REM 

360 CALL SOUND (200, SOL, 0, 
SOL2,4):: CALL SOUND (2 
00,MI,0,MI2,4):: CALL 
SOUND (200,D01,0,D012, 4 
) 

370 FAUX=FAUX+1 :: IF J=5 
OR I=0 THEN 380 ELSE 


CALL AF(I,J+1,0):: I=I 
-] :: GA=0 
380 AS=STRS (FAUX) :: DISPL 


AY AT(24,21+6-LEN(A$)) 
SIZE (LEN(A$)):A$ :: ST 
AT(OPE, 2) =STAT(OPE, 2) + 
1 :: GOTO 540 

390 REM 

400 REM ACTION JUSTE 

410 REM 

420 CALL SOUND(200,D01, 0, 
DO12,4):: CALL SOUND (2 
00,D02,0,D022,4):: CAL 
L SOUND (200, SOL, 0, SOL2 
4) 

430 COR=COR+I :: STAT(OPE 
»1)=STAT(OPE, 1) F1 55 I 
F J=5 THEN 460 

440 GA=GA+1 IF GA<2 TH 
EN 460 


450 GA=1 :: I=I+1 :: IF I 
<9 THEN CALL AF(I,J+1, 
1) 

460 AS=STRS (COR) :: DISPLA 
Y AT(24,11+3-LEN(AS))S 
IZE (LEN (AS) ) :AS 

470 IF I<>8 THEN 540 ELSE 


J=J+1 
480 I=0 :: GA=-1 :: CALL 
CHAR (88, "O0"):: CALL CH 
AR(89, 10") 


490 CALL HCHAR((5-J) *4+4, 
30-2*J+(I-1)*2,88):: C 
ALL HCHAR(24-4*]J, 29-2* 
J+2*I, 89) 

500 IF J=1 THEN 520 ELSE 
CALL AF(2,J-1,1):: CAL 
L AF(3,J-1,1) 

510 CALL AF(5,J-1,1) 

520 FJ=175-32*]J :: F2J=17 
9-32*]J :: GJ=180-16*J 

530 FA=22-4*]J :: FB=25-2* 
J :: FC=FA+1 : FD=FB+ 
1 

540 CALL DELSPRITE(#5,#6, 
#7,#8):: CALL CHAR(88, 
"O0"):: CALL CHAR(89,"O 
"ss. CAL AF (5; de 1) 

550 IF COR+FAUX=DUR THEN 
1040 

560 REM 

570 REM CHOIX DE L'OPERAT 
ION 


580 REM SUIVANT L'OPTION 

590 REM CHOISIE 

600 REM 

610 AMA=99 :: ON OPT GOTO 
660,830, 890, 700 

620 REM 

630 REM ADDITION ET 


REM SOUSTRACTION 
650 REM 


N OPE GOTO 740, 780 
670 REM 
680 REM LES 4 OPERATIONS 
690 REM 


700 OPE=INT(RND*4)+1 :: © 
N OPE GOTO 740, 780,830 
, 890 

710 REM 

720 REM ADDITION 

730 REM 

740 B=INT(RND*10):: A=INT 
(RND*21):: GOTO 790 

750 REM 


760 REM SOUSTRACTION 

770 REM 

780 B=INT(RND*10):: IF SO 
=1 THEN A=INT(RND*10)+ 
B :: AMA=9 ELSE A=INT( 
RND*21)+B 

790 CALL CHAR(124,0O$ (OPE) 
):: RESU=(A+B) * (2-OPE) 
+(A-B) * (OPE-1):: CALL 
AFC(A,B,120,124,T${()): 


OPE=INT(RND*2)+1 :: O 


: GOTO 950 

800 REM 

810 REM MULTIPLICATION 

820 REM 

830 OPE=3 :: IF MUL<>0 TH 
EN B=MUL :: GOTO 850 

840 B=INT(RND*9) +1 

850 A=INT(RND*12):: RESU- 
A*B :: CALL AFC(A,B,12 
4,118,T$()):: CALL CHA 
R(122,0$(3)):: GOTO 95 
() 

860 REM 

870 REM DIVISION 

880 REM 

890 OPE=4 : B=INT(RND*9) 
+1 :: RESU=INT(RND*12) 
:: A=B*RESU :: CALL CH 
AR(124,0$S(4)) 

900 CALL AFC(A,B,120,124, 


T$ ()) 

910 REM 

920 REM AFFICHAGE JUSTE O 
U 

930 REM FAUX ? 

940 REM 

950 X=INT(RND*3):: IF X<2 
THEN X=0 :: GOTO 980 

960 X=1 :: El=INT(OPE/4)+ 


(1-INT(OPE/4))*(4*(1-I 
NT(DIF/4))+2*INT(DIF/4 
)):: A=MAX(0,RESU-E1) : 
: B=MIN(RESU+E1, AMA) 
970 EC=INT((B-A+1) *RND) +A 
: IF EC=RESU THEN 97 
O0 ELSE RESU=EC 
980 IF RESU>=10 THEN CALL 
CHAR (88, TS (INT (RESU/1 
0)+.1))ELSE CALL CHAR( 
88, "0") 

990 CALL CHAR(89,TS(INT(R 
ESU-INT(RESU/10)*10+.1 
))):: GOTO 240 

1000 GOTO 1040 

1010 REM 

1020 REM AFFICHAGE DES RE 
SULTATS 


1030 REM : 
1040 CALL DELSPRITE (ALL) : 
: CALL CLEAR :: FIN=1 


1050 RES(1)="JUSTES ," :: 


RES (2) ="FAUSSES" 
1060 DISPLAY AT(1,7):"TES 
RESULTATS" :: ON OPT 
GOTO 1070,1090,1100,11 
10 
1070 DISPLAY AT(6,2) : "ADD 
ITION ET SOUSTRACTION" 
:: CALL AFR(10,"+",ST 
AT(1,1),STAT(1,2)) 
1080 CALL AFR(14,"-",STAT 
(2,1) ,STAT(2,2)):: (GOT 
C 1130 
1090 DISPLAY AT(6,2) : "MUL 
TIPLICATION" :: CALL À 
FR(10,"*",STAT(3,1),ST 


AT(3,2)):: GOTO 1130 
1100 DISPLAY AT(6,2):"DIV 
ISION" :: CALL AFR(10, 
#/",STAT(4,1),STAT (4,2 
)):: GOTO 1130 
1110 DISPLAY AT(6,2):"LES 
4 OPERATIONS MELANG 
EES" :: CALL AFR(10,"+ 
" , STAT(1,1),STAT(1,2).) 
CALL AFR(12,"-",STA 
T{2,1),STAT(2;,2)) 
1120 CALL AFR(14,"*",STAT 
(3,1),STAT(3,2)):: CAL 
L AFR(16,"/",STAT(4,1) 


> STAT(4,2)) 5:35 GOTO 113 
0 
1130 CHAN=O :: DISPLAY AT 


(24,2) :"PRESSE UNE TOU 
CH "” 

1140 CALL KEY(0,K,S)2: IF 
S<>0 THEN CALL CLEAR 
:: GOTO 1550 

1150 CHAN=CHAN+1 :: IF S= 
O0 AND CHAN=500 THEN CA 
LL CLEAR :: GOTO 1550 
ELSE 1140 

1160 REM 

1170 REM DEFINITION DES C 
ARACTERES 

1180 REM 

1190 CALL CHAR(96, "000000 
003C7FFF8F8CFCEFFFF7F7EF 
00FF000000000080C0C07F 
7FFFFFFFE307FF") 

1200 DO1=110*2" (3/12):: D 
O12=2*D01 :: DO2=110*2 
"(15/12):: DO22=2*D02 
s£: SOL=-110*%*2" (10/12) 53 

SOL2=2*SOL 

1210 MI=110*2"{7/12) s: MI 
2=2*MI 

1220 CALL CHAR(100,"78FCF 
EC77F3F3F3F0070FCFEFE1l 
CF8F800000000000000710 
0071F07000000C7") 

1230 CALL CHAR(104,"7FFFF 
FFF7F1FOFOFFEFFFF8080C 
0EOEOFFFFFFFFFFFFFEFFEC 
FFFFFFFFFFFFFFF") 

1240 CALL CHAR(108,'"F8F8F 
EFFFFFFFFFEFFFFFF3F1FO 
00000FFFFFFFFFFFFO300F 
EFCFCF8F8F8FOFO0") 

1250 CALL CHAR(112,"7F7F6 
30100000000FF000000000 
00000FFCFC38300000000" 


) 

1260 CALL CHAR(116, "3C7EC 
7C4FC3F3F0707010000000 
000CC0000808080E0F8FEF 
FFF7F1F070100CC") 

1270 OP$(0)="ADDITION ET 
SOUSTRACTION" :: OPS$(1 
)="MULTIPLICATION" :: 
OP$(2)=" LA DIVISION" 

LES 4 OPE 


1280 OP$(3)=" 
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RATIONS" 

1290 FOR I=0 TO 9 :: CALL 
CHARPAT(I+48,TS$S(I)):: 
NEXT I 

1300 CALL CHARPAT(43,0S (1 
),45,0$1(2),42,0$1(3),47 
,0$(4)) 

1310 CALL CHAR(140,"C31F7 
F"'&RPTS("F",25)&"8COF8 
FCFE"&RPTS("F",15)&"EF 
CF88000") 

1320 CALL CHAR(136, "01073 
F7F"&RPTS("F",14)&"7F1 
F070000C0F9FC"&RPTS ("F 
",24)&"1F") 

1330 CALL CHAR(124,RPTS(" 
0",64)):: CALL CHAR(12 
0,RPT$S("0",64)) 

1340 CALL CHARPAT(88,CS) : 
: CALL CHAR(87,C$) 

1350 REM 

1360 REM DESSIN INTRODUCT 
IF 

1370 REM 

1380 CALL COLOR(9,1,1,10, 
1,4,11,1;, 1) 25 FIN=U 


1390 FOR J=1 TO 5 :: FOR 
I=1 TO 8 CALL AF(I, 
J,1):: NEXT I :: NEXT 
J 


1400 DISPLAY AT(9,2)SIZE( 
9) : "ALLIGATOR" :: DISP 
LAY AT(12,4)SIZE(6):"S 
AVANT" :: DISPLAY AT(2 
4,2): "PRESSE UNE TOUCH 
E" 

1410 CALL COLOR(9,2,1,10, 
2,1,11,2,1):: CHAN=O : 
: CALL SPRITE(#4,96,2, 
137,177):: CALL AF(5,1 
, 0) 

1420 CALL SPRITE(#8,140,1 
»143,35,#7,136,1,143,2 
1) 

1430 CALL MOTION(#8,0,9,# 


7,0,9):: CALL COLOR(#8 
:16,#7,16):: DC=161 
PAT, PA=0 


1440 CALL KEY(0,K,S):: IF 
S<>0 OR CHAN=10 THEN 
CALL PATTERN(#4,96):: 


CALL AF(5,1,1):: GOTO 
1500 
1450 PAT=PAT+1 IF' PAT< 


10 THEN 1470 ELSE PAT= 
O0 :: CALL PATTERN(#4,9 
6*(1-PA)+116*PA) 
1460 IF PA=0 THEN PA=1 EL 
SE PA=0 
1470 CALL COINC(#8,143,DC 
> 4 COIN) :: IF COIN=0 T 
HEN 1440 
1480 IF DC=161 THEN DC=35 
:: CALL MOTION(#8,0,- 
9,#7,0,-9):: CHAN=CHAN 
+1 :: GOTO 1440 
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1490 DC=161 :: CALL MOTIO 
N(#8,0,9,#7,0,9):: CHA 
N=CHAN+1 GOTO 1440 


1500 CALL DELSPRITE (ALL) : 
: CALL COLOR(9,1,1,10, 
D,T;1E,;151) 23: DTSPEAY 
AT(9;:2)SIZE (IE  »> 
DISPLAY AT(12,4)SIZE(6 
Jr " 

1510 DISPLAY AT(24,1):" " 

1520 REM 

1530 REM CHOIX DES OPTION 
S DE JEU 

1540 REM 

1550 DISPLAY AT(1,2)BEEP: 
"CHOIW DES OPTIONS DE 
JEUW'" :: DISPLAY AT(4, 
1)SIZE(12):"1 ADDITION 

€" 22» DISPLAY AT(6,1) 
SIZE (14) :"  SOUSTRACTI 
ON" 

1560 DISPLAY AT(9,1)SIZE( 

16) :"2 MULTIPLICATION" 
: DISPLAY AT(12,1)SI 
ZE(16):"3 DIVISION" 

1570 DISPLAY AT(15,1)SIZE 
(18) :"4 LES 4 OPERATIO 
NS" se DISPLAY AT (17,1 
SIZE (11) :" 

MELANGEES" 

1580 DISPLAY AT(20,1)SIZE 
(12) :"5 FIN:DU JEU" 
1590 CHAN=O :: I=17 :: OP 

T=1 

1600 DISPLAY AT(24,3)SIZE 
(11): *TONSCHOIW :" 25 
CALL HCHAR(24,I, 30+INT 
(CHAN-2*INT(CHAN/2))*( 
18+OPT)):: CALL KEY(0, 
K,S):: CHAN=CHAN+.S5 

1610 IF S=0 AND CHAN=100 
THEN 1620 ELSE 1660 

1620 FOR I=3 TO 8 :: CALL 

COLOR (I,T,1):: NEXT I 
: DISPLAY AT(1,2):" 
" ss DISFIAY AT(4;1)SI 
LEULR} ET 25 DISPLAY 
AT(6,1)S12E(14):" 

1630 DISPLAY AT(9,1)SIZE( 
T6): ss DISPLAY AT 
12,1 SI2E(16):" ® £a D 
ISPLAY AT(20,1)SIZE(12 
Je M : DISPLAY AT(24 
53)SIZE(13):" 

1640 DISPLAY AT(15,1)SIZE 
(L8):" % 52 DISPEAY .AT 
(L7,1):SI12E (12) 2" es 
FOR I=3 TO 8 CALL C 
OLOR(I,2,1):: NEXT I 

1650 IF FIN=0 THEN 1400 E 
LSE 1380 

1660 IF S=0 THEN 1600 ELS 
E IF K<49 OR K>53 THEN 

CHAN=0O :: IF K=13 THE 


N 1680 ELSE 1600 
1670 CALL HCHAR(24,17,K): 


: OPT-K-48 :: GOTO 160 
0 
1680 IF OPT=5 THEN CALL C 
LEAR :: STOP 
1690 COR,FAUX=0 :: CALL C 
LEAR :: DISPLAY AT(5,1 
) : "D'ACCORD POUR": ; 
OPS (OPT-1):: ON OPT GO 
TO 1700,1720,1750,1750 
1700 DISPLAY AT(15,1):"PO 
UR LES SOUSTRACTIONS": 
: "VEUW TU LES RESULTA 
TS», : SUR À OÙ 2 CHIF 
FRES 2" :: ACCEPT AT 
(19,23)SIZE (-1) VALIDAT 
E("12"):2A$S 
1710 SO=ASC(AS)-48 :: 
O 1760 
1720 DISPLAY AT(15,1):"VE 
UW TU UNE SEULE TABLE 
(O/N) ? N" ::2A 
CCEPT AT(16,12)SIZE(-1 
) VALIDATE ("ON") :AS 
1730 IF AS="N" THEN MUL=0 
:: GOTO 1760 
1740 DISPLAY AT(18,1)BEEP 
: "LAQUELLE (1-9) ? 9" 
:: ACCEPT AT(18,18)SIZ 
E(-1) :MUL :: IF MUL<1 
OR MUL>9 THEN 1740 
1750 FOR I=1 TO 200 :: NE 
XT TI 
1760 CALL CLEAR :: DISPLA 
Y AT(3,1):"NIVEAU DE D 
IFFICULTE":z se" (E= 
5) ? 3% :: ACCEPT AT(5 
14)SIZE (-1) BEEP :DIF 
1770 IF DIF<1 OR DIF>5 TH 
EN 1760 ELSE SPD=DIF*3 
+5 
1780 DISPLAY AT(8,1) :"NOM 
BRE D'ESSAIS":" 1 POU 
R 60"s" 2 POUR 120": 
2% TON 'CHOIW (1-2) "2? 
1" 
1790 ACCEPT AT(12,21)SIZE 
(-1)BEEP :DUR :: IF DUR 
<1 OR DUR>2 THEN 1790 
ELSE DUR=DUR*60 
1800 FOR I=1 TO 100 :: NE 
XT XI 
1810 CALL CLEAR :: FOR I= 
1 TO 68 :: CALL AF(I;1, 
1) 5: NEXT I ?: CALL:CO 
LOR(9;2;1;10,2,1,11,2; 
1) 
1820 FOR I=1 TO 4 :: FOR 
J=1 TO 2 :: STAT(I,J)= 
O0 52 NEXT J :: NEXT I 
1830 J=1 :: FOR I=3 TO 7 
r.: CADE COLOR (I,2,1) 25 


GOT 


NEXT I :: DISPLAY AT( 
24,2):"CORRECT 000 
FAUW 000" 

1840 REM 


1850 REM SUBROUTINE D'AFF 


ICHAGE 
1860 REM D'UN ELEMENT DU 

CROCODILE, SI K=1 OU 

D'EFFACEMENT ,SI K=0 

1870 REM 

1880 GOTO 480 

1890 SUB AF(I,J,K) 

1900 ON I GOTO 1910,1920, 
1930,1940,1950,1960,19 
70,1980 

1910 A=77*K+32 :: 
32 23 C=32 £; 
GOTO 1990 

1920 A=74*K+32 :: B=74*K+ 
32 :: C=80*K+32 :: D=8 
1*K+32 :: GOTO 1990 

1930 A=74*K+32 :: B=74*K+ 
32 :: C=81*K+32 :: D=8 
1*K+32 :: GOTO 1990 

1940 A=74*K+32 :: B=79*K+ 
32 :: C=82*K+32 :: D=3 
2 :: GOTO 1990 

1950 A=64*K+32 :: B=66*K+ 
32 :: C=65*K+32 :: D=6 
7*K+32 :: GOTO 1990 

1960 A=68*K+32 :: B=69*K+ 
32 :: C=74*K+32 :: D=7 
4*K+32 :: GOTO 1990 


B=78*K+ 
D=32 :: 


1970 A=70*K+32 :: B=71*K+ 
32 :: C=74*K+32 :: D=7 
4*K+32 :: GOTO 1990 

1980 A=72*K+32 :: B=73*K+ 
32 :: C=75*K+32 :: D=7 
6*K+32 :: GOTO 1990 

1990 CALL HCHAR((5-J) *4+2 
+2*INT((8-I)/4),15+(5- 
J) *2+(I-1-4*INT((I-1)/ 
4))*2,2A) 

2000 CALL HCHAR((5-J) *4+2 
+2*INT((8-I)/4),16+(5- 
J) *2+(I-1-4*INT((I-1)/ 
4))*2,B) 

2010 CALL HCHAR((5-J) *4+3 
+2*INT((8-I1)/4),15+(5- 
J) *2+(I-1-4*INT((I-1)/ 
4))*2,C) 

2020 CALL HCHAR((5-J) *4+3 
+2*INT((8-I)/4),16+(5- 
J) *2+(I-1-4*INT((I-1)/ 
4))*2,D) 

2030 REM 

2040 REM SUBROUTINE D'AFF 
ICHAGE 

2050 REM DANS LA POMME 

2060 REM 

2070 SUBEND 





Jean-Pierre Lartillier 


Ce programme écrit en Basic TI 
vous propose de reconnaître le 
drapeau d'un pays. Pour cela, il 
affiche, bien sûr, le drapeau en 
question, mais aussi une carte 
miniature. 


Si vous ne trouvez pas la réponse 
au premier essai, le programme 
affiche un des caractères 
constituant le nom du pays ; il 
fera la même chose jusqu'à ce 
que vous trouviez, OU que tous 
les caractères soient dévoilés. 


Une fois que vous aurez trouvé le 
pays, le programme vous 


demandera le nom de sa capitale. 


De même que pour le nom du 
pays, le programme vous aidera 
si vous ne trouvez pas le nom de 
la capitale. 


Programme 
“Flag 23 


Basic TI 


120 
130 
140 


CALL 
REM 
REM % 
REM FAR RR ere 
REM LARTILLIER J-P 
CALL SCREEN (4) 

PRINT TAB (141),9 TA648x% 


#X I 


CLEAR 


PRO PE PE PE PE PE De De De PO PE PE Te 


2080 SUB AFC(A,B,1I,J,TS$() 


) 
2090 CALL CHAR(J+2,TS$(B)) 
:: CALL CHAR(I, "0") 
2100 IF A<10 THEN 2110 EL 
SE CALL CHAR(I,T$S(INT( 
A/10))) 

2110 CALL CHAR(I+2,TS$S(A-I 
NT(A/10)*10)) 

2120 REM 

2130 REM SUBROUTINE D'AFF 
ICHAGE 

2140 REM DES RESULTATS 

2150 REM 

2160 SUBEND 

2170 SUB AFR(LI,SS$S, STAY, S 
TAF) 

2180 IMAGE # : ### JUSTE# 

### FAUSSE# 

2190 A$,B$="S" 
<=1 THEN A$=" " 

2200 IF STAF<=1 THEN B$=" 


" 


IF STAJ 


2210 DISPLAY AT(LI,1):USI 
NG 2180:S$, STAY, AS$, STA 
F,B$ 

2220 SUBEND 


Flag 


220 PRINT TAB(11);"**FLAG 


xx! 


230 PRINT TAB(11)z;'"A*##A#4%x 
x! 

PRINT SES SsS2xs 
FOR C=1 TO: 

CALL COLOR(5,5,1) 
CALL COLOR(6,5,1) 
FOR DELAI=1 TO 50 
NEXT DELAI 

CALL SOUND(-10,-5,0) 
CALL COLOR(6,16,1) 
CALL COLOR(5,16,1) 
CALL SOUND(-10,-7,0) 
FOR DELAI=1 TO 50 
NEXT DELAI 

CALL COLOR(5, 7,1) 
CALL COLOR(6,7,1) 
CALL SOUND(100,494,0) 
FOR DELAI=1 TO 50 
NEXT DELAI 

NEXT C 

CALL COLOR(5,2,1) 


240 
250 
260 
270 
280 
290 
295 
300 
310 
315 
320 
330 
340 
350 
360 
370 
380 
390 
400 
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410 CALL COLOR(6,2,1) 
415 CALL HCHAR(1,1,36, 768 


) 
416 CALL VCHAR(1,1,64,768 
417 CALL HCHAR(1,1,60,768 
) 
418 CALL VCHAR(1,1,32, 768 


) 

419 PRINT "UNE TOUCHE ?" 

420 CALL KEY(0,K,S) 

430 IF S=0 THEN 420 

440 PRINT "VOULEZ-VOUS VO 
IR LES REGLES (O/N) ?" 

450 CALL KEY(0,K1,S1) 

460 IF S1=0 THEN 450 

470 IF K1=79 THEN 480 ELS 
E 490 

480 GOSUB 5310 

490 XX=10 

500 CALL CLEAR 

510 CALL SCREEN(8) 

520 CH$="FFFFFFFFFFFFFFFF 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CHAR(113,CH$) 
CHAR(121,CH$) 
CHAR (129,CHS$) 
CHAR (136,CHS$) 
CHAR (145, CH$) 
CHAR (153,CHS$) 
CALL COLOR(11,12,1) 
CALL COLOR(12,13,1) 
CALL COLOR(13,5,1) 
CALL COLOR(14,16,1) 
CALL COLOR(15,10,1) 
CALL COLOR(16,2,1) 
REM ---ROND--- 
FOR I=1 TO 13 
READ CH2$ 
CALL CHAR(I+93,CH2$) 
NEXT I 
DATA 0000000000090103 
,030F1F3F8FEFEFFF,FFEFF 
FFFFFFFFEFFEF, COFOF8FCF 
1FFFFFF, 000 
00000090080C0 
710 DATA 07070F0FO0FOFOFOF 
, ECEOFOFOFOFOFOFO, OFOF 
OFOFOFOF0707,FO0FOFOFOF 
O0FO0EO0EO, 030 
1000000000000 
720 DATA FFFFFF8F3F1F0F03 
, FFFFFFFEFCF8F080,C080 
800000000000 
REM FRANCE 
CA1=129 
CA2=136 
CA3=145 
A$="FRANCE" 
780 C$="PARIS" 
790 P1$="000406E7FF7F3F1F 


" 


800 P2$-"4060F8FFFFFFFEFC 


810 P3$-"3F3F7F7FFF7F3F0F 


730 
°740 
750 
760 
770 
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820 P4$="F8F6FEFEFEFFI1E08 
830 GOSUB 5500 

840 GOSUB 4450 

850 GOSUB 4760 

860 REM IRLANDE 

870 CA1=121 

880 CA2=136 

890 CA3=113 

900 A$="IRLANDE" 

910 C$="BELFAST" 

920 P1$="000000181E0E7F3F 


930 P2$="O047C7FFFFF7FF6FO 


940 P3$-"3F3F7FFFFFFF8F86 


950 P4$=-"FOFOFOFOFOEUE040 

S60 GOSUB 5500 

970 GOSUB 4450 

980 GOSUB 4760 

990 REM ITALIE 

1000 CA3=145 

1010 P1$=-"0307FFFEFEFF870 
7" 

1020 P2$="00800000000000€C 
0"! 

1030 P3$-"070301000000000 
0" 

1040 P4$="F8FCFC191818101 
0" 

1050 GOSUB 5500 

1060 A$="ITALIE" 

1070 C$="ROME" 

1080 GOSUB 4450 

1090 GOSUB 4760 

1100 REM GUINEE 

1110 CA1=145 

1120 CA2=136 

1130 CA3=113 

1140 P1$=-"18387F7FFFFEFFEF 
F" 

1150 P2$="3030F8FEFEFEFFF 
FE" 

1160 P3$="7F7F38300000000 
0" 

1170 P4$="FFFF/7F3F3E0E060 
C7 

1180 GOSUB 5500 

1190 A$="GUINEE" 

1200 C$="CONAKRY" 

1210 GOSUB 4450 

1220 GOSUB 4760 

1230 REM AFGANISTAN 

1240 CA1=153 

1250 CA2=145 

1260 P1$-"00000103033F3rF3 
F" 

1270 P2$="O80CFCFEFFFFFFF 
E" 

1280 P3$="3F1F1F3F0000000 
0" 

1290 P4$-"FO0FO080800000000 
0" 

1300 GOSUB 5500 


1310 CA3=121 

1320 AS$="AFGANISTAN" 

1330 C$="KABOUL" 

1340 GOSUB 4450 

1350 GOSUB 4760 

1360 REM BELGIQUE 

1370 CA2=113 

1380 CA3=145 

1390 P1$="0000001FFF7F3F1 
F" 

1400 P2$=-"000000C0E0FOF8F 
GC" 

1410 P3$="1F0F07030100000 
0 "" : 

1420 P4$="FCFEFEF8F8FO0F03 
8 LL 

1430 GOSUB 5500 

1440 AS$="BELGIQUE" 

1450 C$="BRUXELLES" 

1460 GOSUB 4450 

1470 GOSUB 4760 

1480 REM COTE D'IVOIRE 

1490 CA1=113 

1500 CA2=136 

1510 CA3=121 

1520 P1$="063F3F3F3F7F7F7 
F" 

1530 P2$="O00COEOFFFFFEFEF 
E" 

1540 P3$="FFFFEFFF3F1FO0FO 
Cr 

1550 P4$="FEFEFEFEFFFF030 
0 LA 

1560 GOSUB 5500 

1570 AS$="COTE D'IVOIRE" 

1580 CS$="ABIDJAN" 

1590 GOSUB 4450 

1600 GOSUB 4760 

1610 REM NIGERIA 

1620 CA1=121 

1630 CA2=136 

1640 CA3=CA1 

1650 P1$="007FFFFF7F7E7F7 
F" 

1660 P2$="0078FCFFFEFEFCF 
(on 

1670 P3$="7F7FFFFFEFFOFOFO 
7" 

1680 P4$="FCFCFCFCE4E0C08 
0" 

1690 GOSUB 5500 

1700 AS="NIGERIA" 

1710 C$="LAGOS" 

1720 GOSUB 4450 

1730 GOSUB 4760 

1740 REM MALI 

1750 CA1=121 

1760 CA2=113 

1770 CA3=145 

1780 P1$="030301010101010 
1 1" 

1790 P2$="80E0FOFS8FEFFFFF 
F" 

1800 P3$="0141FF7FFFC7070 
7" 

1810 P4$=-"FFFFEFCF8FOEUE06 


0" 

1820 GOSUB 5500 

1830 A$="MALI" 

1840 C$="BAMAKO" 

1850 GOSUB 4450 

1860 GOSUB 4760 

1870 REM ALLEMAGNE 

1880 CA1=153 

1890 CA2=145 

1900 CA3=113 

1910 P1$="070FO0F1F7F3F3F1 
F" 

1920 P2$="80E0FO0EOCOCOCOE 
0 "” 

1930 P3$="1F1F3F7FFFFFFFO 
0" 

1940 P4$="FOF8FCFFFFFEFE3 
C" 

1950 GOSUB 5500 

1960 A$="ALLEMAGNE" 

1970 C$="BONN" 

1980 GOSUB 4520 

1990 GOSUB 4760 

2000 REM ARGENTINE 

2010 CA1=129 

2020 CA2=136 

2030 CA3=CA1 

2040 P1$="000FO0FOFOFOFOFO 
F" 

2050 P2$="1830E0C0E0E0000 
0" 

2060 P3$="OFOFOFOFOFOF070 
1 " 

2070 P4$="0000C0800000C0E 
0 " 

2080 GOSUB 5500 

2090 A$="ARGENTINE" 

2100 C$="BUENOS AIRES" 

2110 GOSUB 4520 

2120 GOSUB 4760 

2130 REM AUTRICHE 

2140 CA1=145 

2150 CA2=136 

2160 CA3=CA1 

2170 P1$="0000000000010F0 
EF" 

2180 P2$="0000000080F8FFF 
EF" 

2190 P3$="OFOFFFFF1F07010 
0 " 

2200 P4$="FÉFEFEFEFCCO800 
0 LL 

2210 GOSUB 5500 

2220 A$="AUTRICHE" 

2230 C$="VIENNE" 

2240 GOSUB 4520 

2250 GOSUB 4760 

2260 REM GABON 

2270 CA1=121 

2280 CA2=113 

2290 CA3-129 

2300 P1$="070707FF7FFFFFF 
FE" 

2310 P2$="COEOCOF8FOFOFOF 
g" 

2320 P3$="FFFFFF7F3C1C0CO 


8" 

2330 P4$="FCFC78080000000 
0 " 

2340 GOSUB 5500 

2350 A$="GABON" 

2360 C$="LIBREVILLE" 

2370 GOSUB 4520 

2380 GOSUB 4760 

2390 REM HAUTE VOLTA 

2400 CA1=153 

2410 CA2=136 

2420 CA3=145 

2430 P1$="0000030F1F3F7FF 
FE" 

2440 P2$="00E0FOF8FCFCFFF 
F"' 

2450 P3$="7F7FFFFCFC7C040 
4 "! 

2460 P4$="FFFCFCO80000000 
0 " 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 
F" 

2570 P2$="0000000078FEFFF 
F" 

2580 P3$="FFFFFFFF3F3F1F0 
6" 

2590 P4$="FEFCFCFCFCF8800 
0 "" 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2700 

2710 
F" 

2720 P2$="00000000E0F0FO0F 
0" 

2730 P3$="3F3F1F1F1FOFOEO 
C" 

2740 P4$="F8F8FCFCFEFCF80 
0" 

2750 

2760 

2770 

2780 

2790 

2800 

2810 

2820 
3" 

2830 P2$="0000000080C0C0E 


GOSUB 5500 

A$="HAUTE VOLTA" 
C$="OUAGADOUGOU" 
GOSUB 4520 

GOSUB 4760 

REM HONGRIE 

CA1=145 

CA2=136 

CA3=121 
P1$="000000000001C7F 


GOSUB 5500 
A$="HONGRIE" 
C$="BUDAPEST" 
GOSUB 4520 
GOSUB 4760 

REM IRAN 
CA1=121 

CA2=136 
CA3=145 

AS= "IRAN" 
C$="TEHERAN" . 
P1$="060702027F7F3F3 


GOSUB 5500 

GOSUB 4520 

GOSUB 4760 

REM LUXEMBOURG 
CA1=145 

CA2=136 

CA3=129 
P1$="000000000001030 


0 1" 

2840 P3$="030300000000000 
0 " 

2850 P4$="CO8000000000000 
0" 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 
F" 

2960 P2$="1FIFIEFEFEFEFEF 
E" 

2970 P3$="3F3F3F7F3F0F070 
9 " 

2980 P4$="FEFEFFFFFFFFFFO 
E" 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 
EF" 

3080 P2$="00000000000080F 
8 "” 

3090 P3$="3F3F1F0F0100000 
0 " 

3100 P4$="FCFCFF0E030000 
0" 

3110 GOSUB 5500 

3120 CA3=CA1 

3130 A$="SALVADOR" 

3140 C$="SAN "&AS 

3150 GOSUB 4520 

3160 GOSUB 4760 

3170 REM GUATEMALA 

3180 CA1=129 

3190 CA2=136 

3200 CA3=129 

3210 P1$="00000001030F030 
“ " F 

3220 P2$="00000000E0E0E0E 
0 " 

3230 P3$="OFOFOFOFOFO07030 
2" 

3240 P4$="FOF8FOEOCO80000 
0 "” 

3250 GOSUB 5500 

3260 A$="GUATEMALA" 

3270 C$S=A$ 

3280 GOSUB 4450 

3290 GOSUB 4760 

3300 REM TCHAD 

3310 CA1=129 

3320 CA2=113 

3330 CA3=145 

3340 P1$="06070F0F0F1F3F3 


GOSUB 5500 

A$= "LUXEMBOURG" 
C$=AS$S 

GOSUB 4520 

GOSUB 4760 

REM LYBIE 

CA1=145 

CA2=136 

CA3=153 
P1$="787C7EFFFF7F7F3 


GOSUB 5500 
A$="LYBIE" 
C$="TRIPOLI" 

GOSUB 4520 

GOSUB 4760 

REM SALVADOR 
CA1=129 

CA2=136 
P1$="00000000003C3F3 
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F" 

3350 P2$-"0080COF8FEFFFFF 
F" 

3360 P3$="O0F1F1F1F3F3F1F0 
FE" 

3370 P4$="FFFEFCEFCFEFFFCS 
0 " 

3380 GOSUB 5500 

3390 GOSUB 4450 

3400 AS$="TCHAD" 

3410 C$="N'DJAMENA" 

3420 GOSUB 4760 

3430 REM BANGLA DESH 

3440 XX=10 

3450 CALL COLOR(8,12,13) 

3460 CALL COLOR(9,12,13) 

3470 CALL COLOR(10,12,13) 

3480 CA1=121 

3490 P1$="000000000101010 
7" 

3500 P2$="7EFEFEF8F8FCEFCF 
8 " 

3510 P3$="0707FF7F7FFF010 
si "” 

3520 P4$="F8F8FOCOCOEOEOE 
0 " 

3530 GOSUB 5500 

3540 GOSUB 4710 

3550 GOSUB 5130 

3560 AS="BANGLA DESH" 

3570 C$="DACCA" 

3580 GOSUB 4760 

3590 REM JAPON 

3600 CALL COLOR(8,10,16) 

3610 CALL COLOR(9,10,16) 

3620 CALL COLOR(10,10,16) 

3630 CA1=-136 

3640 P1$="010000000000000 
0" 

3650 P2$="COCO00COC06060E 
0 " * 

3660 P3$="000101030F0C080 
0 "” 

3670 P4$="E0FOE0E08080000 
O0" 

3680 GOSUB 5500 

3690 GOSUB 4710 

3700 GOSUB 5130 

3710 A$="JAPON" 

3720 C$="TOKYO" 

3730 GOSUB 4760 

3740 REM NIGER 

3750 CALL COLOR(8,12,16) 

3760 CALL COLOR(9,12,16) 

3770 CALL COLOR(10,12,16) 

3780 CA1=113 

3790 CA2=136 

3800 CA3=121 

3810 P1$="010307070F3F3F3 
F" 

3820 P2$="C8FCFEFEFEFEFFF 
F" 

3830 P3$="3F7FFFFFFF78381 
8 "” 

3840 P4$="FFFEFEFCF8F8000 
0" 





99 Magazine n° 11 


3850 GOSUB 5500 

3860 GOSUB 4520 

3870 GOSUB 5130 

3880 A$="NIGER" 

3890 C$="NIAMEY" 

3900 GOSUB 4760 

3910 REM INDONESIE 

3920 CA1=145 

3930 CA2=136 

3940 P1$="000F0810101F1F3 
E" 

3950 P2$-"10F0000000C0000 
0 " 

3960 P3$-"3F1B11111010100 
0 LL 

3970 P4$="808080800000000 
0 " 

3980 GOSUB 5500 

3990 GOSUB 4650 

4000 A$="INDONESIE" 

4010 C$="DJAKARTA" 

4020 GOSUB 4760 

4030 REM LIECHTENSTEIN 

4040 CA1=-129 

4050 CA2=145 

4060 P1$="000000001C1F1F1 
F" 

4070 P2$="00000000008080E 
0 " 

4080 P3$-"070000000000000 
0 LU 

4090 P4$="F8F010000000000 
0 LU 

4100 GOSUB 5500 

4110 GOSUB 4650 

4120 A$="LIECHTENSTEIN" 

4130 C$="VADUZ" 

4140 GOSUB 4760 

4150 REM POLOGNE 

4160 CA1=136 

4170 CA2=145 

4180 P1$="OEFFFFFFFFFFFFF 
EF" 

4190 P2$="O0EFEFFFFFEFEFEF 
E" 

4200 P3$="FFFF3F1F0B01000 
0 " 

4210 P4$="FEFFFEFEFEFEYEO 
1 LL 

4220 GOSUB 5500 

4230 GOSUB 4650 

4240 A$="POLOGNE" 

4250 C$="VARSOVIE" 

4260 GOSUB 4760 

4270 REM 

4280 REM SUISSE 

4290 XX=10 

4300 CA1=145 

4310 P1$="00000000183F7FF 
pe" 

4320 P2$="0000000000E0E0E 
0 10 

4330 P3$-"7F3F3 3337030000 
0 1" 

4340 P4$=-"FEFEFC9C9E00000 
0 LL 


4350 GOSUB 5500 

4360 GOSUB 4710 

4370 CALL VCHAR(7,15,136, 
7) 

4380 CALL HCHAR(10,12,136 


7 7) 
4390 A$="SUISSE" 
4400 C$="BERNE" 
4410 GOSUB 4760 
4420 GOTO 5590 
4430 REM SOUS PROGRAMME 
4440 REM VERTICAL 
4450 FOR I=5 TO 9 
4460 CALL VCHAR(5,5+I,CA1 


r XX) 

4470 CALL VCHAR(5,10+I, CA 
2, XX) 

4480 CALL VCHAR(5,15+I, CA 
3, XX) 

4490 NEXT I 

4500 RETURN 

4510 REM HORIZONTAL 

4520 FOR I=1 TO 3 

4530 CALL HCHAR(4+I,12,CA 
1, XX) 

4540 CALL HCHAR(7+I,12, CA 
2, XX) 

4550 CALL HCHAR(10+I,12,C 
A3, XX) 

4560 NEXT I 

4570 RETURN 

4580 REM VERTICAL 2 COUL 
EURS 

4590 FOR I=1 TO 11 

4600 CALL VCHAR(5,5+1I,CA1 
r XX) 

4610 CALL VCHAR(5,17+I, CA 
2, XX) 

4620 NEXT I 

4630 RETURN 

4640 REM HORIZONTAL 2 CO 
ULEURS 

4650 FOR I=1 TO 5 

4660 CALL HCHAR(4+I,12, CA 
1,2%) 

4670 CALL HCHAR(9+I,12, CA 
2, XX) 

4680 NEXT I 

4690 RETURN 

4700 REM UNIS 

4710 FOR I=1 TO 11 

4720 CALL HCHAR(4+I,10,CA 
1,XX+1) 

4730 NEXT I 

4740 RETURN 

4750 REM REPONSE 

4760 X$="QUEL EST CE PAYS 

o" 

4770 FOR G1=1 TO 2 

4780 SC=5 

4790 FOR G2=1 TO 5 

4800 FOR J1=1 TO LEN(XS) 

4810 CALL HCHAR(17,5+J1,A 
SC(SEGS (X$,J1,1))) 

4820 NEXT J1 

4830 FOR DELAI=1 TO 300 


4840 NEXT DELAI 
4850 Z$="VOTRE REPONSE ? 
d La 


4860 FOR J2=1 TO LEN(Z$) 
4870 CALL HCHAR(17,5+J2,A 

SC(SEG$S (Z$,J2,1))) 
4880 NEXT J2 


4890 INPUT " ":R 
EPS 

4900 CALL HCHAR(16,4,32,2 
8) 

4910 IF REP$=A$ THEN 4990 
ELSE 4920 


4920 FOR J3=1 TO G2 

4930 CALL HCHAR(19,5+/3,A 
SC(SEGS (A$,J3,1))) 

4940 NEXT J3 

4950 FOR DELAI=1 TO 200 

4960 NEXT DELAI 

4970 SC=SC-1 

4980 NEXT G2 

4990 TOTAL=TOTAL+SC 

5000 X$="QUELLE EST SA CA 
PITALE ?" 

5010 G$="BONNE REPONSE !! 
! LL 

5020 FOR J4=1 TO LEN(GS) 

5030 CALL HCHAR(17,5+J4,A 
SC(SEGS(G$,J4,1))) 

5040 NEXT J4 

5050 FOR DELAI=1 TO 500 

5060 NEXT DELAI 

5070 CALL CLEAR 

5080 A$=C$ 

5090 NEXT G1 

5100 CALL CLEAR 

5110 RETURN 

5120 REM 

5130 

5140 

5150 

5160 

5170 

5180 

5190 
) 

5200 

5210 


ROND 

CALL HCHAR(8,13, 94) 
CALL HCHAR(8,14, 95) 
CALL HCHAR(8,15, 96) 
CALL HCHAR(8,16, 97) 
CALL HCHAR(8,17, 98) 
CALL HCHAR(9,13, 99) 
CALL HCHAR(9,14,96,3 


CALL HCHAR(9,17,100) 
CALL HCHAR(10,13,101 


CALL HCHAR(10,14,96, 
CALL HCHAR(10,17,102 
CALL HCHAR(11,13,103 
CALL HCHAR(11,14,104 


CALL HCHAR(11,15, 96) 
CALL HCHAR(11,16,105 


CALL HCHAR(11,17,106 


5290 RETURN 
REM REGLES DU JEU 


5310 FOR I=200 TO 400 STE 


5530 


P 20 

5320 CALL SOUND(100,1I, 0) 

5330 NEXT I : 

5340 CALL CLEAR 

5350 PRINT "CE JEU TRES S 
IMPLE":: 

5360 PRINT "CONSISTE À RE 
CONNAITRE ":: 

5370 PRINT "LE PAYS PUIS 
D'EN DONNER SA CAPITAL 
E. " 

5380 PRINT :: 

5390 INPUT "enter":XXS$S 

5400 CALL CLEAR 

5410 PRINT "VOTRE ORDINAT 
EUR POUR VOUS AIDER" 

5420 PRINT "VOUS DONNERA 
LA CARTE DE CE PAYS ET 
SON DRAPEAU" 

5430 PRINT ::: 

5440 PRINT "APPUYER SUR U 
NE TOUCHE !" 

5450. CALL KEY(0,K,S) 

5460 IF S=0 THEN 5450 

5470 CALL CLEAR 

5480 RETURN 

5490 REM 
TES 

5500 CALL CHAR(130,P1$) 

5510 CALL CHAR(131,P2$) 

5520 CALL CHAR(132,P3$) 


IMPRESSION CAR 





CALL CHAR(133,P4$) 
CALL HCHAR(2,16,130) 
CALL HCHAR(2,17,131) 
CALL HCHAR(3,16,132) 
CALL HCHAR(3,17,133) 
5580 RETURN 


5540 
5550 
5560 
5570 


5590 REM RESULTATS 

5600 REM ACCOMPAGNEMENT 

5610 FOR I=1 TO 2 

5620 CALL SOUND (100, 440,5 
, 880,5) 


5630 CALL SOUND(100,466,5 
, 930, 5) 

5640 NEXT I 

5650 CALL SOUND (800, 440, 2 
, 880,2) 

5660 CALL SOUND (200, 392, 0 
, 784,0) 

5670 CALL SOUND (200, 349, 0 
, 698, 0) 

5680 CALL SOUND (200,330, 0 
, 659, 0) 

5690 CALL SOUND (200,294, 0 
587,0) 

5700 CALL SOUND (800,277, 0 
, 554, 0) 

5710 CALL SOUND(1000,294, 
0,587, 0) 

5720 CALL CLEAR 

5730 PRINT "VOUS AVEZ TOT 
ALISE ";TOTAL;" POINTS 

"” 


5740 PRINT :: 

5750 PRINT TAB(18);"SUR.. 
.260" 

5760 IF TOTAL=260 THEN 57 
70 ELSE 5800 

5770 PRINT "****EXCELLENT 
S RESULTATS*** #";:::: 

5780 INPUT "ENTER POUR RE 
JOUER FCTN CLEAR 
POUR ARRETER":XX$ 

5790 GOTO 150 

5800 IF TOTAL>3*260/4 THE 
N 5810 ELSE 5840 

5810 PRINT "RESULTATS ASS 
EZ. CORRECTS. : . "è22: 

5820 INPUT "ENTER POUR 
JOUER FTCN CLEAR 
POUR ARRETER":XXS$S 

5830 GOTO 150 | 

5840 IF TOTAL>180 THEN 58 
50 ELSE 5880 

5850 PRINT "RESULTATS MOY 
ENS":::: 

5860 INPUT "ENTER POUR RE 
JOUER FCTN CLEAR P 
OUR ARRETER":XXS $ 

5870 GOTO 150 

5880 IF TOTAL>65 THEN 589 
0 ELSE 5920 

5890 PRINT "VOUS AVEZ DE 
GROS PROGRES A FAIRE": 
::: "ESSAYEZ UNE NOUVEL 
LE FOIS!!I":: 

5900 INPUT "ENTER POUR RE 
JOUER FCTN CLEAR P 
OUR ARRETER":XXS 

5910 GOTO 150 

5920 PRINT "C'EST INCROYA 
BLE. RESULTATS TRES DE 
CEVANTSI!IMez:2: 

5930 INPUT "ENTER POUR RE 
JOUER FCTN CLEAR P 
OUR ARRETER":XXS 

5940 GOTO 150 

5950 END 
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Le but de ce jeu d'adresse, écrit 
en Basic Etendu, est simple : 
détruire le maximum d'‘enva- 
hisseurs’ avant que l'un deux 
n'atterrisse. 


Pour détruire un envahisseur, 
placez vous à sa verticale en vous 
aidant des touches fléchées ‘S” et 
‘D’, et tirez en appuyant sur la 
touche ‘.” (‘>’). La destruction 
d'un envahisseur provoque 
l'apparition d'un nouvel ennemi 
en haut de l'écran. Ce dernier 
descend un peu plus vite que 
celui que vous venez de détruire. 


Le jeu est volontairement lent afin 
que les parties durent plus de 
deux minutes. 


La programmation 


Pour accélérer le tracé du sol et 
des étoiles, plutôt qu'utiliser la 
fonction RND, le programme lit 
des ‘DATA issues de la fonction 
RND. 


Les lignes 860 à 910 évitent les 


Texas Aliens 


Christian Lucas 


RARRR AARAR À À AA AAA 
# # FR À 
À AAA ES FRARA # 
À # À À À 
À FARARR À À À À RAA 
AA À À ARAR À À AAA 
#. À À # AR À À 
AAA À FR ARR À À À Æ 
# À À À # AA 
À À AAA À ARAR À A AAA 


codes hexadécimaux à ralonge. 

Les lignes 1270 à 1300 
constituent le cœur du 
programme ; elles doivent être 
éditées en deux fois avec la 
méthode habituelle : à la 
Saturation du buffer, faire 


<ENTER>, puis rééditer la ligne 
et la compléter. 


Le programme conserve le 
meilleur score pendant toute la 


durée du jeu. 
99 





Programme 
“Texas Aliens” 
Basic Étendu 


100 


HR AHHAX ARE XX 


110 1x * 
120 !* TEXAS ALIENS # 
130 !# # 
140 !* SUR TI 99/4A # 
150 LE jé 
160 !* EN BASIC ETENDU * 
170 1 æ 
180 !* CHRISTIAN LUCAS * 
100 1 x 
200 !1* DEDIE À MAGUY ci 
. 210 ## À 
* 


220 


LRKHARRARHARRHRHHÉAHAAXX XX 
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230 CALL CLEAR 

240 DISPLAY AT{(10, 3} : "II 
y a longtemps dans une 

250 DISPLAY AT (12, 7) :"gal 
axie lointaine" 

260 FOR I=1 TO 400 

270 NEXT I 

280 CALL CLEAR 

290 STAR=0 

300 DEF RN=INT (RND*27)+1 

310 CALL CHAR(91, "0010204 
OFF402010")! FLECHE S 

320 CALL CHAR(93, "0008040 
2FF020408")! FLECHE D 

330 CALL CHAR(112, "080808 
0808080808") ! LASER 

340 CALL CHAR(120, "000808 


040FFFO01F1F387870303E 
1E0600101020F0FF0O0F8F8 
1C1E0E0C7C7860")!#3 EN 
VAHISSEUR JAUNE CLAIR 

350 CALL CHAR(124, "010709 
C030703010143476F7F6741 
400080E090CO0E0C08080C2 
E2F6FEE6820200")!#1 CA 
NON LASER BLANC 

360 CALL CHAR(128, "080423 
110F03071F3F3878787060 
60601020C488FO0CO0E0F8FC 
1C1E1E0E060606")!#5 EN 
VAHISSEUR MAGENTA 

370 CALL CHAR(132, "183C3C 
3C3C180F1F3F 4008420842 
0840183C3C3C3C18FO0F8FC 
02104210421002")!#4 EN 


VAHISSEUR VERT MOYEN 
380 CALL CHAR(136, "000000 
010F7FFFFFESFFFFFF7F12 
24C000000080F0FEFFFFC7 
FFFFFFFE482403")!#2 EN 
VAHISSEUR ROUGE CLAIR 
390 CALL CHAR(140,"8"&RPT 
$("0",63))!#6 À #20 ET 
OILES 
400 CALL SCREEN(2):: CALL 
CHAR (64, "107C92387CD6 
8200") 


410 PRINT " @@CC@ C@@G @ 
@ ee eee" 
420 PRINT " @ @ @ 
@ @ e«@ e" 
430 PRINT " @ 
@ eeee @" 
440 PRINT " @ @ @ 
@ @ @ @" 
450 PRINT " @ 
@ @ ee eee" 
460 PRINT : : : : 
470 PRINT " @ 
ee @ @ 
480 PRINT " @ 
e@ @ e" 
490 PRINT " @@CG @ @ @@ 
@ 
@ 


eee 


eeee @ 


e@ 


@ @e@@ @" 
500 PRINT " 
@ e&@ @" 

510 PRINT " @ @ @@@ 
ee @ @ eee" 
520 PRINT ? ©: & &? : 
530 CALL COLOR(5,14,1) 
540 RESTORE 
550 FOR I=1 TO 9 
READ A,B 
CALL SOUND (A,B,1) 
580 NEXT I 
FOR I=1 TO 100 
600 NEXT I !WAIT 
FOR I=1 TO 9 
620 READ A,B 
CALL SOUND (A,B,1) 
640 NEXT I 
CALL CLEAR 
FOR I=2 TO 8 
CALL COLOR(I,14,1) 
NEXT I 
CALL COLOR(9,11,1) 
CALL COLOR(11,6,1) 
CALL MAGNIFY (4) 
CALL SPRITE(#1,132,10 
, 80, 85) 
730 CALL SPRITE(#2,136,8, 
80,152) 
740 DISPLAY AT(5,8):"* TE 
XAS-ALIENS *" 
750 DISPLAY AT(18,2):"[ : 
S JE D TER : 
" 
760 DISPLAY AT(22,6):"(C) 
CHRISTIAN LUCAS" 
770 DISPLAY AT(24,5):"APP 
UYER SUR UNE TOUCHE" 


@@ 


780 CALL KEY(0,K,S) 

790 IF S=0 THEN 780 

800 CALL DELSPRITE (ALL) 

810 RANDOMIZE 

820 N=0 

830 CALL CLEAR 

840 CALL SCREEN (2) 

850 CALL MAGNIFY (3) 

860 ! DESSIN DU SOL 

870 A$S=RPTS ("0",12) 

880 CALL CHAR(100,A$&"E6F 
F") 

890 CALL CHAR(101,A$&"FFF 
FE") 

900 CALL CHAR(102,A$&"O0F 
F") 

910 CALL CHAR(103,A$&"F9F 
Re) 

920 1 RHHRHAHAHRHHHAXXX 

930 RESTORE 1540 

940 FOR I=1 TO 32 

950 READ X 

960 CALL HCHAR (24,1, 100+X 


) 

970 NEXT I 

980 CALL SPRITE(#2,136,10 
1, 37) 22, V2=d 

990 CALL SPRITE(#3,120,12 
»1,85):2: V3=10 

1000 CALL SPRITE(#4,132,3 
1,165):: V4=20 

1010 CALL SPRITE(#5,128,1 
4,1,223).22, V5=26 

1020 CALL SPRITE(#1,124,1 
6,176;127) 5:32. Vei5 

1030 IF STAR=1 THEN 1080 
ELSE STAR=1 

1040 RESTORE 1560 


1050 FOR I=6 TO 28 :: REA 
D A,B,C 

1060 CALL SPRITE(#I,140,A 
,B,C) 

1070 NEXT I 


1080 RESTORE 1500 

1090 FOR I=1 TO 13 

1100 READ A,B 

1110 CALL SOUND (A,B,1) 

1120 NEXT I | 

1130: FOR I=2 TO $5,::5 CALL 
MOTION(#I,1,0):: NEXT 
Eve 1S2,5354,55=i 

1140 GOTO 1160 

1150 N=N+1 :: CALL VCHAR( 
1,V#25%832;,22):2: GOTO 12 
00 

1160 

1170 

1180 

1190 

1200 


CALL KEY(0,K,S) 

IF K=83 THEN 1220 !S 
IF K=68 THEN 1240 !D 
IF K=46 THEN 1260 !. 
CALL POSITION (#2, Y2, 


X,#3,Y3,X,#4,Y4,X,#5,Y 
5,X) 

1210 IF Y2>167 OR Y3>168 
OR Y4>169 OR Y5>170 TH 
EN CALL MOTION(#1,0,0, 
#2,0,0,#3,0,0,#4,0,0,# 


5:00) £55 
E 1160 

1220 IF V>l1l THEN V=V-1 :: 
CALL LOCATE (#1,176,V* 
8+5) 

1230 GOTO 1160 

1240 IF V<29 THEN V=V+1 : 
: CALL LOCATE(#1,176,V 
*8+5) 

1250 GOTO 1160 

1260 CALL SOUND(10,800,2) 
:: CALL SOUND(5,400,8) 

1270 IF V=V2 THEN CALL PO 
SITION(#2,X,Y):: CALL 
VCHAR(X/8+2,V+2,112,MA 
X(0,20-X/8)):: V2=RN : 
: CALL LOCATE(#2,1, 8*V 
2+5):: S2=S2+.1 :: CAL 
L MOTION(#2,S2,0):: GO 
TO 1150 

1280 IF V=V3 THEN CALL PO 
SITION(#F3,X;,Y) 22 (CALL 
VCHAR(X/8+2,V+2,112,MA 
X(0,20-X/8)):: V3=RN : 
: CALL LOCATE(#3,1,8*V 
3+5):: S3=S3+.1 :: CAL 
L MOTION(#3,S53,0):: GO 
TO 1150 

1290 IF V=V4 THEN CALL PO 
SITION(#4,X,Y):: CALL 
VCHAR(X/8+2,V+2,112,MA 
X(0,20-X/8)):: V4=RN : 
: CALL LOCATE(#4,1,8*V 
4+5):: S4=S4+,1 :: CAL 
L MOTION(#4,S4,0):: GO 
TO 1150 

1300 IF V=V5 THEN CALL PO 
SITION(#5,X,Y):: CALL 
VCHAR(X/8+2,V+2,112,MA 
X(0,20-X/8)):: V5=RN : 
: CALL LOCATE(#5,1,8*V 
545) :: S5=S5+:1 ::. CAL 
L MOTION(#5,S5,0):: GO 
TO 1150 

1310 CALL VCHAR(1,V+2,112 


GOTO 1330 ELS 


,22):: CALL VCHAR(1, V+ 
2, 32,22) 

1320 GOTO 1200 

1330 RESTORE 1520 

1340 FOR I=l TO 11 

1350 READ A,B 

1360 CALL SOUND (A,B, 1) 

1370 NEXT I 

1380 CALL DELSPRITE (#1, #2 
1 #3, #4, #5) 


1390 DISPLAY AT(7,5) : "VOU 
S AVEZ DETRUIT "&STRS ( 


N) 

1400 DISPLAY AT(9,9):"ENV 
AHISSEURS" 

1410 IF N>HI THEN HI=N :: 
DISPLAY AT(12,1):"VOU 
S AVEZ BATTU LE HI-SCO 
RE" ELSE DISPLAY AT(12 
,5) : "LE HI-SCORE EST D 
E "&STRS (HI) 
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1420 DISPLAY AT(20,1):"UN 

E AUTRE PARTIE ( O/N ) 
po" 

1430 CALL KEY (0,K,S) 

1440 IF K=79 THEN 820 

1450 IF K=78 THEN CALL CL 
EAR :: END 

1460 GOTO 1430 

1470 ! DONNEES MUSICALES 

1480 DATA 400,165,400,165 
, 400,165,300,131,100,1 
75,400,165,300,131,100 
,175,400,165 

1490 DATA 400,659,400,659 
, 400, 659, 300, 698,100,6 


59,400,523,300,262,100 
, 349,400, 330 

1500 DATA 80,175,466,175, 
466,147,80,175,466,175 
,466,147 

1510 DATA 80,208,466,208, 
250,196,91,208, 91,196, 
216,175,466,147 

1520 DATA 800,147,500,147 
,200,147,500,147,400,1 
75,200,165,500,165,200 
,147,500,147,200,139,7 
00,147 

1530 REM RANDOM SOL 

1540 DATA 3,0,1,1,0,2,2,1 
trs Lt ns dr 


23725» 015 0,:1;04450,;1;2 
,0,3 

1550 REM RANDOM ETOILE 

1560 DATA 14,46,113,7,47, 
143,11,97,217,7,89,219 
» 7,165, 286 

1570 DATA 5,168,211,12,14 
2,148,5,95,31,7,52,85 

1580 DATA 4,74,176,3,149, 
29,11,174,37,:11,115;22 
2,4,113,199,16,148,132 

1590 DATA 16,127,87,7,162 
,143,16,129,129,16,150 
,227,5,92,42,4,118,155 
» 5:103,207,16,155,111 


Un connecteur multiple 


Généralités 


Les modules “Solid State 
Software” de Texas Instruments 
peuvent contenir deux sortes de 
composants de mémoire : tout 
module contient au moins un 
boîtier GROM de 6Ko (et au plus 
5, soit 30Ko). Bien des modules 
contiennent en plus des boîtiers 
ROM de type classique (8Ko, ou 
plus, avec, dans ce dernier cas, 
un système de sélection des 
pages). 

L'adressse de base de cette page 
de ROM est >6000. 


Seules les ROMS sont 

programmées en langage machine 

car la logique d'accès aux 

GROMS ne permet pas au 

microprocesseur TMS 9900 

d'exécuter directement des 

instructions qui auraient été 
enregistrées en GROM. Les 

GROMS contiennent donc 

seulement deux sortes 

d'informations : 

+ des instructions en code 
“GPL” qui sont interprétées 
par le programme moniteur de 
la console, lequel joue le jeu de 
l'accès au GROMS, 
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+ des données (chaînes de 
caractères, tables, adresses...) 


Accès aux GROMS 


Il se fait par un petit nombre 
d'adresses fixes (ports) : 
GRMRD = >9800 pour lire un 
octet de donnée, 

GRMWA = >9C02 pour écrire la 
“GROM adress” (en deux fois car 
ce sont des ports de 8 bits...). 
Ces adresses ne sont pas 
décodées complètement par le 
matériel de la console, par 
exemple : >9804 correspond 
encore à GRMRD. Cependant, le 
système d'exploitation (moniteur) 
a été écrit en prévision d'un 
décodage plus complet, qui 
permettrait d'avoir accès à 1 
parmi 16 modules connectés 


simultanément sur le bus 
auxiliaire (GROM port 
connector). 


C'est la raison d'être de la 
fonction “Review Modulo 
Library” qui est rendue accessible 
automatiquement dès que le 
système a détecté une différence 
entre deux lecture GROM à la 
même “GROM adress” mais 
l'une effectuée par le port >9800 
et l'autre par le port >9804. 


Jean Penné 


Principe du 
connecteur 
multiple 


La réalisation décrite ci-dessous 
permet d'utiliser cette ressource, 
jusqu'ici dormante, du système 
pour accéder automatiquement à 
plusieurs modules branchés 
simultanément sur le connecteur 
“bus auxiliaire” de la console. 


Les modules peuvent contenir 
GROM, ROM et même RAM 
(mini-mémoire par exemple). 

Pour cela (voir schéma), les 
signaux d'adresse A10, A11, A12, 
A13 sont mémorisés dans un 
circuit 74LS175, au moment de la 
descente du signal de sélection 
globale des GROMSs : GS*. Pour 
sélectionner les ROM, il suffit 
alors de démultiplexer le signal 
ROMG* avec ces signaux 
d'adresses mémorisé, au moyen 
d'un décodeur 74LS138 (ici 
limité à 8 module et en fait 6 pour 
des raisons d'encombrement 
physique...). En ce qui concerne 
les GROMS, le problème est un 
peu plus délicat : un simple 


démultiplexage de GS* ne 
pas ; en effet, 


fonctionne 


23 MO 
25 M1 


10 A13 
12 A12 
14 Al 
16 A10 


74LS175 


21 GS* 


34 
ROMG # 


19 +5SV, 4 Vec 


2 
35 ? OV 


36 


toutes les GROMSs présentes dans 
le système doivent être sélectées 
ensemble à chaque accès, qu'elles 
soient lues ou non... Ceci est 
indispensable pour assurer la 
mise à jour de leur registre 
d'adresse interne. 

Nous avons donc choisi d'agir 
sur le signal de commande M1 de 
sorte que seul le boîtier concerné 
voie une commande de lecture, 
tous les autres voyant alors une 
commande d'écriture, ce qui n'a 
pas d'inconvénient pour une 
GROM (mais en aurait pour une 
GRAM , telle que celle du module 
Maximem. 


Réalisation 


Sur une plaque imprimée genre 
Verroboard au pas de 2,54 mm, 
de dimensions 200 x 100 mm, et 
comportant 37 bandes de 76 








74LS138 





74LS138 


+5V 





trous, il faut disposer en bout un 
connecteur mâle 2 x 19 contacts, 
et, sur la carte, 6 connecteur 
femelle 2 x 19 contacts (faute de 
2 x 18...). Le premier travail 
consiste à transmettre tels-quels 
tous les signaux du bus 
auxiliaire, à l'exception de deux 
d'entre-eux qui sont : le n° 25 
(M1) et le n° 34 (ROMG*), le n° 
1 étant en-dessous et à gauche 
suivant la conventions du 
Servicing Manual de TI. 

Il ne reste plus qu'à compléter la 
carte avec le logique du schéma 
1. La place ne manque pas pour y 
loger les 6 ou 7 circuits intégrés 
nécessaires. 


Fonctionnement 


Supposons que vous branchiez 
en position O0 le module TI 
LOGOII et en position 1 le 
module Editor-Assembler. A la 
mise sous tension, après avoir 
appuyé sur une touche, vous 
aurez l'écran 0 : 


Vec 
F— qe o—> M1(0) 25(0) 
—{Ls00 »—> M1(1) 25(1) 
”—{LSs00 »—> M1(2) 25(2) 
—{Ls00 —> M1(8) 25(3) 
 {Ls00 }—> M1(4) 25(4) 
TL e00 + M1(5):25(5) 
—{Ls00 *—> M1(6) 25(6) 

Ls00 Ÿ—> M1(7) 25(7) 
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ROMG(O) 34(0) 
ROMG(1) 34(1) 
ROMG(2) 34(2) 
ROMG(3) 34(3) 
ROMG(4) 34(4) 
ROMG(S) 34(5) 
+ ROMG(6) 34(6) 
ROMG(7) 34(7) 


PRESS: 

1 FOR TI BASIC 

2 FOR TI LOGOII 

3 FOR REVIEW MODULE LIBRARY 
Vous pouvez donc choisir 
immédiatement TI BASIC ou 
LOGO. 


Si vous appuyer sur la touche 3, 
vous obtenez alors l'écran : 
PRESS: 

1 FOR TI BASIC 

2 FOR EDITOR ASSEMBLER 

3 FOR REVIEW MODULE LIBRARY 
Si vous choississez l'option 2, 
vous pourrez bien sûr éditer et 
assembler mais de plus vous 
pourrez charger DEBUG et 
dumper la ROM ou la GROM de 
TI LOGOII ou charger DESA 
pour la désassembler.. Votre 
système a acquis une dimension 
de plus. 
Avec l'option 3, l'exploration des 
banques de modules continue et 
comme vous n'avez pas branché 
d'autre module, vous revenez à 


l'écran 0. 
99 
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Copie 


Michel Teyssou 


‘ 

Voici une routine, écrite en 
assembleur, permettant une copie 
d'écran graphique à partir du 
Basic Etendu. Elle fonctionne sur 
les imprimantes Epson, 
Mannesman et Star. De plus, elle 
comporte deux particularités 
intéressantes : 


* un fichier d'inversion d'octets ; 
. un fichier DSRLNK. 


Il est possible, par exemple, 
d'incorporer cette routine de 
copie d'écran au programme de 
J.F. Guillemant (Comptes 
familiaux) : il suffit pour cela de 
mettre CALL LINK("COPIE") à 
la ligne 2800 (“COPIE” est le 
nom du programme qui se trouve 
en DEFinition). Il faudra 
auparavant qu'elle soit chargée 
dans l'extension mémoire. Vous 
mettez par exemple dans un 
programme baptisé “LOAD” : 


10 CALL INIT 
20 CALL LOAD ("DSK1.ECR") 
30 RUN "DSK1.COMPTES" 


“ECR’ est le nom que vous aurez 
donné au fichier objet sur la 
disquette, et “COMPTES” celui 
que vous aurez donné au 
programme écrit en Basic Etendu. 


Configuration 


Si vous devez adapter la routine 
en fonction des caractéristiques 
de votre imprimante, les 
nombreuses remarques placées 
dans le fichier source pourront 
vous guider. Il faut, dans l'ordre, 
placer : 


+ les codes (hexadécimaux) pour 
l'impression unidirectionnelle. 
Ils sont, selon l'imprimante, 
sur deux ou trois octets ; 
compléter éventuellement avec 
des >00 ; 
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€ 


+ READY * 
CALL IHIT 
CALL 
CALE 
CALE 


+ les codes correspondants à 
l'impression de lignes 
graphiques  jointives 
compléter éventuellement avec 
des >00 ; 

+ les codes permettant d'obtenir 
une impression en simple 
densité (toujours sur deux 
octets) ; 

° immédiatement après ce qui 
précède, le nombre total 
d'octets par ligne d'impression 
(ici 192). Ce nombre est sur 
deux ou trois octets selon 
l'imprimante ; compléter éven- 
tuellement avec des >00. 


Note : si votre imprimante ne 
reconnaît pas les codes pour 
l'impression unidirectionnelle 
(parce que, par exemple, elle ne 
fonctionne que dans ce mode), 
mettez des >00 à la place ; ils 
seront ignorés. Si vous voulez 
supprimer les octets dont vous ne 
vous servez pas, il vous faudra 
modifier le nombre d'octets pris 


LORDÉT DSRLLECR" 32 
VCHAR(C 1:29; 42:96) 
LIKE" CUFIE"2 


d'écran pour 
Basic Etendu 


en compte au moment où l'on 
utilise les étiquettes UNIDIR et 
GRAPH. 


Inversion 


Sur les imprimantes citées plus 
haut, l'octet graphique est, 
comme sur toute imprimante à 
impacts, imprimé verticalement, 
mais avec le bit de poids fort en 
bas. Avec les imprimantes de 
type Seïkosha ou ImageWriter 
d'Apple, le bit de poids fort est 
en haut si bien que, sans une 
routine d'inversion, chaque ‘ligne 
d'impression” serait inversée. 
Comme le programme comporte 
deux possibilités, vous pourrez 
toujours essayer ! 


Si votre imprimante imprime ‘de 
haut en bas”, il faut supprimer la 
routine d'inversion. Pour cela, il 
suffit de mettre des astérisques 


es» 


(*) devant et d'enlever ceux de la 
routine normale, comme indiqué 
dans le source. 


DSRLNK 


indispensable, car on ne dispose 
pas, en Basic Etendu, de cette 
routine située dans le module 
“Editeur/assembleur”. Pas plus, 
du reste, que de GPLLNK, qui 
aurait permis une image mémoire 
(inversion) plus facile. La routine 


en question a donc été 
désassemblée et isolée, puis 
rendue relogeable. Vous pouvez 
donc vous en servir dans d'autres 
réalisations si le besoin s'en fait 
sentir. 


Le fichier DSRLNK est 





Source de la routine 
de copie d'écran 


XÉRARRRAAARRAAÉAARÉRARERARHEÉÉÉ HER A 


* COPIE ECRAN AVEC BASIC ETENDU 
* 1986 Michel TEYSSOU Arbus 
Æ 64230-LESCAR (France) 


* 


* ET 99 MAGAZINE 
ARR HD A DD D D D D D D D 


* il faut modifier les codes du 
* fichier Imprimante . Mettre 
* image miroir ou image normale 
* selon le cas. (voir plus bas). 
* Reassembler avec l'option R 
XAKHÉHAX XX A AE A AE A A A € 6 6 
DEF COPIE 
AORG >2700 
* zones tampons 
REG BSS 32 
TAMPON BSS 192 
* equivalence basic etendu 
VSBR EQU >2028 
VSBW EQU >2020 
VMBR EQU >202C 
VMBW  EQU >2024 
* concerne le PAB 
PAB EQU >Fr80 
TPAB EQU >1000 
PNTR EQU >8356 
* etiquettes 
D1 92 DATA 19 
D8 DATA 8 
(0) 
(0) 


* 
* 
* 
* 
* 
* 
* pour adapter votre imprimante: * 
* 
* 
* 
* 
* 
* 


2 


SAVGPL DATA 

CAR DATA 

TEST DATA 0 

* designation de l'imprimante 

PIO DATA >0012,>1000,>FF00 
DATA >0000,>0004 
TEXT “PIO. 

XAHXÉ XX AA AA A A € 


* table pour routine inversion * 
XAAHHAAARHÉ KE XX A AK RAA HE À 
TABLE BYTE 0,8,4,>C,2,>A,6,>E * 

BYTE 1,9,5,>D,3,23B,7,>F % 
XARRHÉRAÉAARÉARÉAAÉHÉAHERÉAÉ EEE HA HA HA 
* FICHIER IMPRIMANTE POUR EPSON * 


* OÙ  MANNESMANN TALLY * 
AAA A D D D D A D D A D 4 


* impression unidirectionelle * 


UNIDIR DATA >1B55,2>0100 
* lignes jointives 

DATA >1B41,>0800 
* mode grahique densite normale 
GRAPH DATA >1B4B 
* nombre d'octet par ligne 

DATA >C000,>0000 
* ici sur 2 octets N1,N2 (192) 
* certaines imprimantes sont sur 
* 3 octets >31,>39,>32 (192) 
* 
* 


OH OÙ OÙ OÙ Ù % % 


"IMAGEWRITER" & "SEIKOSHA" x 
ARHARRÉARARARÉAARÉRÉARRARÉRAHX EX AXE X 
EVEN 
DSR LI R6,PAB+9 
MOV R6, GPNTR 
BLWP @DSRLNK 
DATA 8 
RT 


COPIE LWPI REG 
MOVB @>9802, GSAVGPL 
MOVB @>9802, GSAVGPL+1 
DEC GSAVGPL 
* ouvre 
LI RO,PAB 
LI R1,PIO 
LI R2,14 
BLWP @VMBW 
BL @DSR 
* print 
LI RO,PAB 
LI R1,>0300 
BLWP @VSBW 
LI RO, TPAB 
* unidirectiontlignes jointes 
* LI RI1,UNIDIR 
LI R2,8 Nb octet Jdans 


BLWP @VMBW [l'eti- 
LI RO,PAB+5 Iquette 
LI R1,>0800 Nb octet J[JUNIDIR 


BLWP @VSBW 
BL @DSR 
* saisie ecran du code ascii 
LI R4,31 
AUTRE MOV R4,RO 
A @CAR, RO 
CLR R1 
BLWP @VSBR 
SWPB R1 
AI R1,-128 
* on x le code par 8 
SLA R1,3 
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* aller dans table descripteurs LI R1,>C600 >C0O + Nb octet(ici 6) 


LI RO,>400 BLWP @VSBW 

A R1,RO BL @DSR 
HHHRHHRARÉRÉARARHAAÉERAHÉEX EH AK X CLR @CAR 
* Routine avec inversion * CLR @TEST 
* (Image miroir) * DEC R4 
*  EPSON-MANNESMAN TALLY * CT :R4,:=1 
HR ARAARARARÉÉARHAHHH HE X UNE AUTRE 
* transfert des 8 octets * * retour basic 

LI R2,8 * LI R1,>0100 

LI R3, TAMPON * LI RO,PAB 

A @TEST,R3 # BLWP Q@VSBW 
AUT2 CLR RI1 * BL @DSR 

BLWP @VSBR * MOVB @SAVGPL, @>9CO2 

SRL R1,8 x MOVB @SAVGPL+1, @>9C02 

MOV R1,R10 * CLR @>837C 

SRL R10,4 * LWPI >83E0 

LI R7, TABLE x B @>0070 

A R10,R7 * HHHÉHHÉAHÉARÉAHÉARÉAREHHÉ HAE H HAE 

CLR R10 * * FICHIER ADRESSAGE DSRLNK * 

MOVB *R7,R10 * HÉARHÉAHÉHÉAÉAAHÉÉRRÉAÉARAHÉRXÉA RÉ E EX 

ANDI R1,>000F * REGI  BSS 38 

LI R7,TABLE * REG2 BSS 32 

A R1,R7 * DAT1 BSS 6 

CLR RI1 * DAT2 DATA >2000 

MOVB *R7,RI * DAT3 DATA >2EAA 

SLA R1,4 * SAV11 DATA >0000 

A R1,R10 * HHRHARÉAÉRAARÉRÉÉARAAÉRÉRAÉARHÉÉHÉAHÉAXHX 

MOVB R10, *R3+ * VSBR1 DATA REGI * 

INC RO * DATA $+2 * 

DEC R2 x CLR RI * 

JNE AUT2 * MOV *R13,R2 * 
AAA EEEEEEEEEEEEEEMASQUET la MOVB @REG1+5, @>8CO2 * 
* Routine sans inversion *routine qui SOC RI,R2 F 
* (Image normale) *est au dessus MOVB R2, @>8C02 * 
* Remplace la precedente *en mettant des MOV  @>0002(R13),R1 * 
* (IMAGEWRITER) (SEIKOSHA) *asterisques MOV @>0004(R13),R2 * 
HAE Et EEREEEEEEEEE+EEdovant toutes MOVB @>8800,@>0002(R13) * 
* transfert des 8 octets *les lignes et RTWP * 
+ LI R2, 8 *mettre celle- AAA ee 6 6 ee fe fe x 
* LI R1, TAMPON *ci en service DSRLNK DATA REG1+6 
* A @TEST,R3 *en enlevant DATA $+2 
* BLWP @VMBR *les asterisques MOV *R14+,R5 
RAA EEEEEEEEEEEXEAXEKEJES lignes 140 SZCB @DAT2,R15 

A @D8, @TEST *a 143. MOV @>8356,RO 

C @TEST, @D192 *Reassembler avec MOV RO, R9 

JEQ IMPR *l'option R. AI R9,>FFF8 

LI R2,32 BLWP Q@VSBR1 

A R2,@CAR MOVB R1,R3 

JMP AUTRE SRL  R3,8 

SETO R4 


* impression 


* mode graph LI  R2,DATI 


IMPR LI RO,TPAB S006 INC RO 
LI R1,GRAPH INC R4 
LI R2,6 Nb octet dans GRAPH C R4,R3 
BLWP QGVMBW JEQ S005 
LI RO,TPAB+6 TPAB+Nb octet BLWP @VSBR1 
LI R1l,TAMPON MOVB R1, *R2+ 
LI R2,192 CB  R1,@DAT3 
BLWP GVMBW UNE S006 
LI RO,PAB+5 S005 MOV R4,R4 
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JEQ 5007 
CI R4,>0007 
JGT 5007 
CLR @>83D0 
MOV R4,@>8354 
INC R4 
A R4,@>8356 
LWPI >83E0 
CLR R1 
LI R12,>0F00 
S010 MOV R12,R12 
JEQ 5008 
SBZ O0 
S008 AI  R12,>0100 
CLR @>83D0 
CI R12,>2000 
JEQ S009 
MOV R12,@>83D0 


SBO O0 

LI R2,>4000 
CB *R2, @DAT3+1 
JUNE S010 


A @REG1+16,R2 


JMP S011 
S013 MOV @>83D2,R2 
SBO O0 
S011 MOV *R2,R2 
JEQ S010 
MOV  R2,@>83D2 
INCT R2 
MOV *R2+,R9 
MOVB @>8355,R5 
JEQ S012 
CB  R5, *R2+ 
UNE S013 
SRL R5,8 
LI  R6,DATI 
S014 CB  *R6+, *R2+ 
JNE 5013 
DEC R5 
JNE 5014 
S012 INC RI 
BL  *R9 
JMP 5013 


SBZ OO 
LWPI REG1+6 
MOV R9,RO 
BLWP @VSBR1 
SRI, R1,13 
UNE S015 
RTWP 
S009 LWPI REG1+6 
S007 CLR RI 
S015 SWPB R1 
MOVB R1, *R13 
SOCB @DAT2,R15 
RTWEP 
MOV R11,@SAVI11 
LWPI REG2 
BLWP @VSBR1 
LWPI >83E0 
JEQ S016 
MOV G@SAVI1,R11 
B *R11 
MOVB @REG2,@>8322 
B @>OOCE 
END 


S016 





Indentation automatique 


Quoi de plus pénible, lorsqu'on 
se replonge dans un programme 
que l'on a écrit plusieurs mois 
auparavant, que de ne plus rien 
comprendre à ce que l'on a fait. 


Une qualité fondamentale de tout 
programme susceptible d'être 
réutilisé par quelqu'un d'autre 
(ou par soi-même) est la lisibilité. 


Un programme dont les entités 
logiques sont clairement 
indentées est d'une lecture 
beaucoup plus aisée qu'un amas 
incohérent et brouillon d'ins- 
tructions et/ou de déclarations. 


Néanmoins, il est parfois 
contraignant de s'efforcer à 
respecter une marge ou un 
décalage bien particulier pour 
chaque type de déclarations. Une 
telle discipline, souvent trop 
rigide et trop systématique 
peut-être nuisible. 


Pourquoi ne pas confier cette 
tâche à un ordinateur qui ne sera 
aucunement effrayé par l'aspect 


automatique et répétitif de la tâche 
à accomplir. Le programme que 
je vous propose va se charger de 
cette opération pour vous. Il va 
lire un fichier source et générer à 
partir de celui-ci un fichier 
fortement structuré, aéré et 
indenté, dont chaque entité 
logique sera bien mise en 
évidence. 

Lors de la création de vos 
programmes, vous n'aurez plus à 
vous soucier de leur présentation 
et vous pourrez vous concentrer 
pleinement sur l'algorithme. 


L'éditeur de textes du système 
UCSD implanté sur le TI ne 
pouvant appréhender que des 
fichiers d'approximativement 
12Ko, il a été nécessaire de 
découper le programme en trois 
fichiers différents (INDENTI à 
INDENT3). Le fichier-source à 
compiler (INDENT) ne comporte 
que les directives d'inclusion 
{*I nom_de_fichier} de ces trois 
fichiers. 


Gérard Santraille 


Son utilisation est extrêmement 
simple : donnez le nom du fichier 
à traiter, le nom du fichier à créer 
et le programme s'occupe de tout 
le reste. Notez que le programme 
rajoute l'extension .TEXT par 
défaut, il est donc inutile de 
l'écrire. Si le fichier à traiter ne 
comporte pas d'extension, 
rajoutez un point à la fin de son 
nom. Lors de la saisie du nom 
du fichier à créer, $ (comme dans 
la syntaxe du système 
d'exploitation) correspond au 
nom du fichier source à traiter. 
Ainsi, si vous désirez conserver 
le même nom suivi de .IND tapez 
juste $.IND. Si vous donnez 
juste $ comme nom du fichier à 
créer, le programme rajoutera 
automatiquement un ‘2°’ afin 
d'éviter que fichiers source et 
destinataire aient le même nom. 


Le traitement d'un fichier étant 
assez long, le programme affiche 
le numéro de la iigne en cours 
d'analyse. 
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Commentons certains aspects du 
programme : 


+ La partie déclarative du 

programme principal fait 
largement appel à différents types 
accessibles par PASCAL. Ainsi, 
MOTS_CLEF et CONTEXTE 
sont des ensembles définis 
explicitement et exhaustivement. 
Ces ensembles sont ordonnés et il 
est possible de passer 
séquentiellement d'un élément à 
un autre (dans n'importe quel 
sens) au moyen des fonctions 
PRED (pour prédécesseur) et 
SUCC (pour successeur). 
Notons également la déclaration 
directe du type de la variable 
PILE en zone de déclarations des 
variables. Nous aurions pu 
définir un type STACK (dans la 
zone type), puis définir PILE 
comme étant de type STACK. 
Notons enfin les tableaux 
CARSPE et ORTHOGRAPHE 
dont les indices ne sont pas 
entiers mais sont les éléments des 


ensembles CONTEXTE et 
MOTS CLEF. 
+ La fonction booléenne 


FICHIERS_OUVERTS utilise 


les directives {*I-} et {$I+} pour 
éviter que le programme ne 
provoque une erreur au Cas où 
l'un des fichiers que l'on tente 
d'ouvrir ou de fermer n'existerait 
pas. On peut tester le déroulement 
correct d'une procédure RESET 
ou REWRITE à l'aide de la 
variable IORESULT qui vaut 
zéro si tout s'est bien passé. 
Comme indiqué en commentaires 
dans le programme, notez 
l'emploi de cette fonction. Au lieu 
d'en faire une procédure 
(OUVRE_ FICHIERS), puis de 
tester si tout s'est bien déroulé 
(par la valeur d'une variable 
booléenne interne à la procédure), 
il est plus élégant d'en faire 
directement une fonction 
booléenne. Pour savoir quelle est 
la valeur de cette fonction (TRUE 
ou FALSE), le programme est 
obligé de l'exécuter entièrement. 


+ Le principe de l'algorithme du 

programme en lui-même est 
assez simple. Il lit caractère par 
caractère le fichier source, 


reconnaît les mots réservés et 
construit (mot par mot) un 
nouveau fichier dont l'indentation 
d'un 


dépend entièrement 





Fichier INDENT.TEXT 







les directives 
i a ete decoupe 


ensemble de variables booléennes 
et entières caractérisant le 
contexte du mot déchiffré (partie 
déclarative, test, commentaire). 
Ces variables dépendent 
elles-même du mot réservé 
reconnu. Ainsi, selon que le 
programme rencontre un UNTIL 
ou un CASE, il n'agira pas de la 
même façon. 


+ On peut traiter n'importe quel 
source PASCAL avec ce 
programme. Tous les mots sont 
convertis en majuscules avant 
d'être déchiffrés : le programme 
accepte donc tout panachage de 
minuscules et de masjuscules. 


+ Un programme découpé en 

plusieurs fichiers (comme 
celui-ci) doit être traité fichier par 
fichier. 


Lorsque vous entrerez ce 
programme, abstenez vous de 
saisir les commentaires, n'oubliez 
pas de le découper en trois 
fichiers et ne vous fatiguez pas à 
respecter l'identation : il le fera 
pour vous une fois compilé. 
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 INDENT2 et INDENT3} var 











E:array [1..LONGP 










22, WITH2); 


r que le compilateur ne les 
t pas avec les vrais ... 
De plus FUNCTION est devenu FUNCT 
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15 les mots clef se terminent par 





ENTREE, SC 











> DJGRAPHE : array [MOTS CLEF| of ID 
SITUATION:CONTEXTE; 


RETOUR .integer; 
TABULATION:booliean 





interactive; 


DENT IF /CATEUR:; 


5NE, MARGE, NIVEAU, NBCOL, RETARD, NBRPARENTHESES : integer; 


SOCS DECLAR, DEBUT 


boclean; 


CHANGER LIGNE,PILE 


DERNIER 


procedure aff 


E,BEGIN2,CASE2,CONST2,D02,ELSE2, 
UNCT2,1IF2,LABEL2,0F2,PROC?2, procedure ERREUR (cede: ji 
CORD2,REPEAT2,THEN2,TYPE2,UNTIL2, 


begin { erreur | 
case code of 


js 





F ane 
e de la ligne”, i 


PRO, SOUS PRO, SOUS CASE, SOUS END, SOUS PARENTHESES: 


VIDE,CAR SPECIAL:boolean; 
[AR,CAR SU:VANT:char; 


traitement; 


igne:4,' en cours ..') 


“rite('Erreur de syntaxe); 


tout Ss 


write ('Debordement de pile'); LIGNE :=]1; 








35 
write ("Fichier vide); CHANGER LIGNE :=false; 
end; PILE VIDE :=true; 
write(', Pressez <ENTER>',chr(7)); SOUS DECLAR :=false; 
readin DEBUT_PRO :=false; 
end; SOUS _PRO :=false; 
SOUS CASE :=false; 
function FICHIERS OUVERTS :boolean; SOUS END :=false: 
SOUS _PARENTHESES:=false; 
var 
p:integer; SITUATION: =PROGRAMME ; 
abandon:boolean; 
source, destinataire:string: ORTHOGRAPHE [ TERME] :=" y 
ORTHOGRAPHE [BEGIN2] := "BEGIN &1 
begin ORTHOGRAPHE | CASE2] :='CASE LE 
page (output) ; ORTHOGRAPHE [ CONST2] =! CONST "3 
writeln('ldentation de sources PASCAL'); ORTHOGRAPHE [ DO2] ="poO ” 
WTÎT@Ln (= 1); ORTHOGRAPHE [ELSE?2] ='ELSE ; 
writeln:;: ORTHOGRAPHE [END2] ='END *; 
repeat ORTHOGRAPHE [FOR2] :='FOR Ur. 
writeln('Fichier a traiter',chr(7)); ORTHOGRAPHE [FUNCT2] :='"FUNCTION'; 
write ('.TEXT par defaut : ‘); ORTHOGRAPHE[1IF2] :='"1F "5 
readin (source); ORTHOGRAPHE [ LABEL2) :=' LABEL Me 
abandon:=source=""; ORTHOGRAPHE [OF2] :='0F "5 
{abandon sera VRAI si source est vide ..} ORTHOGRAPHE [ PROC2 :='PROCEDUR" ; 
if pos('.',source)=0 ORTHOGRAPHE [{ PROGRAM2] :=" PROGRAM :; 
then ORTHOGRAPHE [ RECORD2] :="'RECORD ‘; 
source:=concat (source, '.text'); ORTHOGRAPHE (REPEAT2] :="REPEAT ‘; 
{rajoute automatiquement .TEXT ORTHOGRAPHE [ THEN2 :="THEN 3; 
si aucune extension. ORTHOGRAPHE [TYPE2 :='TYPE “S 
Entrez un point apres le nom ORTHOGRAPHE [UNTIL2] :="UNTIL à 
pour traiter un fichier sans extension ORTHOGRAPHE [VAR2] := "VAR - 
Exemple : TOTO. pour TOTO } ORTHOGRAPHE [WHILE2] :="'WHILE QE 
if not abandon ORTHOGRAPHE [WI TH2 := "WITH Le 
then CARSPE [PROGRAMME] :=[" ",';","{","=t,tft tit tt tt, 
{l'emploi des directives I+ et 1- ÉLUS 
permet de ne pas sortir du programme CARSPE[PARENTHESEE] :={",",";1,t4+1,9-0,070,00,040,9)t, 
si on ne specifie pas un nom de fichier STE Mo 
valide CARSPE(CHAINE]:={"'tt]; 
Rappel : ioresult = 0 if not eof (ENTREE) 
si l'operation d'entree-sortie s'est then 
convenablement effectuee..} read (ENTREE, CAR SUIVANT) 
{SI-} else 
reset (entree, source) ERREUR (3) 
{$1+} end { INITIALISER }; 
until abandon or (ioresult=0); 
if not abandon procedure MEMORISER (CAR : char); 
then 
repeat begin 
writeln('Fichier destinataire',chr(7)): tampon:-=concat (tampon, '); 
writeln('.TEXT par defaut); tampon{(length(tampon)]:=car 
write ('$ = fichier source : ‘); {Il n'est pas possible d'ecrire directement 
{$ est un joker qui equivaut au nom TAMPON : =concat (TAMPON, car) } 
du fichier source. Ainsi $.ID end; 
donnera TOTO.TEXT.ID si TOTO.TEXT 
etait le source ...} procedure TRANSFERT (var MOT _A_RECHERCHER: IDENTIFICATEUR) ; 
readln(destinataire); 
abandon:=destinataire="'"; var 
if destinataire='S'! l:integer; 
then 
destinataire:='$2; begin 
{on rajoute un 2 pour eviter que if length (TAMPON) >LONGIDEN 
les fichiers source et destinataire then 
aient le meme nom ...} for I:=1 to LONGIDEN do 
p:=pos ('$',destinataire); MOT_A_RECHERCHER![1]:=TAMPON![1] 
if p<>0 else 
then begin 
begin ‘for i:=1 to length(tampon) do 
delete (destinataire,p,1l); mot _a_ rechercher{i]:=tampon{il]; 
insert (source, destinataire,p) for 1:=length(TAMPON)+1 to LONGIDEN do 
end; MOT_A_RECHERCHER([I]:=! ! 
if pos('.',destinataire)=0 end 
then end; 
destinataire:=concat (destinataire, '.text'); 
if not abandon function CODE RESERVE (MOT:IDENTIFICATEUR) :MOTS CLEF:; 
then . : 
{$1-} var 
rewrite(sortie,destinataire); TRAITEMENT : MOTS _CLEF; 
{$1+) 
until abandon or (ioresult=0); procedure CONVMAJ (var MOT : IDENTIFICATEUR) ; 
FICHIERS OUVERTS :=not abandon; 
writeln: const 
writeln DECAL=32; 
end; AMIN =97; 
ZMIN =122; 
procedure INITIALISER; 
var 
begin { INITIALISER } l:integer:; 
MARGE :=0; 
NBCOL :=0; begin { convmaij } 
RETARD :=0; for I:=i to LONGIDEN do 
NIVEAU:=0; if MOTII] in [chr(AMIN)..chr(ZMIN)] 
SOMMET : =0; then 
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MOT(I]:=chr(ord(MOT{i})-DECAL) 
END; 
begin 
CONVMAJ (MOT) ; 
TRAITEMENT : =WITH2; 
{Traitement vaut ici WITH2 qui est le dernier 
index du tableau ORTHOGRAPHE. On va remonter 
ce tableau par 
TRAITEMENT : =PRED (TRAITEMENT) ; 
PRED est le predecesseur d'un ensemble 
decrit explicitement comme MOTS _CLEF} 
ORTHOGRAPHE [ TERME] : =MOT; 
while MOT<>ORTHOGRAPHE [TRAITEMENT] do 
TRAITEMENT : =PRED (TRAITEMENT) ; 
CODE_RESERVE : = TRAITEMENT 
end; 
procedure LIRECARACT (SITUATION :CONTEXTE; var CAR:char; 
var CAR SPECIAL:boolean) ; 


begin 
car:=car_ suivant; 
if not eof (entree) 
then 
read(entree,car_suivant); 
CAR _SPECIAL:=car in carspe[situation]; 
if (situation=programme)and (car=".") 
then 
car_special:=car suivant=" * 


end; 


procedure liremot (situation:contexte;var dernier _ car:char;; 


var 
car:char; 
car_ignores:set of char; 
car_special:boolean; 
begin 


case situation of 
programme, parenthesee: 
car_ignores:={[" ‘]; 
chaine: 
car_ignores:={] 
end; 
tampon:=""'; 
repeat 
lirecaract (situation,car,car_special) 
until not (car in car_ignores)or eof (entree); 
while not car_ special and not eof(entree)do 
begin 
memoriser(car); 
lirecaract (situation,car,car special) 
end; 
dernier_car:=car 
end; 


procedure increment (i:integer); 


var 
j:integer; 


begin 
for j:=1 to i do 
if marge<margemax 
then 
marge :=marge+2 
else 
retard:=retardt+]l 
end; 


procedure decrement (i:integer); 


var 
j:integer: 


begin 
for j:=1 to i do 
if retard<>0 
then 
retard:=retard-] 
else 
marge :=marge-2 
end; 


procedure iniligne (marge:integer); 


begin 
write(sortie,'':marge); 
nbcol:=marge 

end: 


procedure ecritmot; 


var 


i:integer; 


begin 
if nbcol+length (tampon) +1>=nbcolmax 
then 
begin 
increment (2); 
writeln(sortie): 
aff_ traitement; 


iniligne (marge); 2 
decrement (2) 
end; 


nbcol:=nbcol+length (tampon) ; 
for i:=1 to length (tampon) do 
write(sortie,tampon{il]) 
end; 
procedure empiler(i:integer; j:boolear) ; 


begin 
pile vide:=false; 
if sommet+l>longpile 
then 
erreur (2) 
else 
begin 
sommet :=sommet +1: 
with pile[sommet] do 
begin 
retour:=i; 
tabulation:=; 
end 
end 
end; 


procedure depiler(var a:integer); 


begin 
if sommet=0 
then 
erreur(l) 
else 
begin 
a:=pile{sommet|.retour; 
sommet :=sommet -] ; 
pile vide:=sommet=0 
end 
end; 


Fichier INDENT2.TEXT 


chier INDENT2.TEXT} 





procedure traitmot (traitement : MOTS CLEF) ; 
procedure commentaire; 


begin 
repeat 
write(sortie, dernier car); 
lirecaract (chaine, dernier car,car special) 
until dernier _car="}" 
end; 


procedure decal_ terme; 


begin 
if changer _ ligne 
then 
begin 
iniligne (marge); 
changer _ligne:=false 
end; 
ecritmot; 
end; 


procedure decal begin; 


begin 
if sous declar or sous pro 
then =: 
begin 
writeln(sortie); 
aff_traitement; 
sommet :=0 
end; 
sous _pro:=false; 
if sous declar 
then 
begin 
decrement (3) ; 
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sous _declar:=false 
end; 
empiler (marge, true); 
iniligne (marge) ; 
ecritmot; 
increment (1); 
changer_ligne:=true; 
while car_suivant=! ‘do 
lirecaract (programme, dernier car,car special); 
if car_suivant="{" 
then 
begin 
commentaire; 
write(sortie, dernier car); 
lirecaract (programme, dernier _car,car_ special) 
end 
end; 
procedure decal_ case; 


begin 
changer_ligne:=false; 
if sous declar 
then 
begin 
enpiler (marge, false); 
ecritmot 
end 
else 
begin 
iniligne (marge); 
ecritmot; 
empiler (marge, true); 
increment (1) 
end; 
sous case:=true 
end; 


procedure decal_declarations; 


begin 
writeln(sortie); 
aff_traitement; 
if sous _declar 
then 
decrement (3) 
else 
sous _declar:=true; 
iniligne (marge) :; 
ecritmot; 
increment (3); 
changer_ligne:=true; 
sous _pro:=false; 
end; 


procedure decal_do; 


begin 
ecritmot; 
changer_ligne:=true 
end; 


procedure decal_ conditionnelle; 


begin 
wr:teln(sortie); 
aff _traitement; 
changer_ligne:=true; 
if traitement=else2 

then 
depiler (marge) ; 

iniligne (marge) ; 
empiler (marge, false); 
ecritmot; 
increment (1); 
sous _end:=false 

end; 


procedure decal_ end; 
procedure decal begin end; 


begin 
if not changer _ ligne 
then 
begin 
writeln(sortie); 
aff _traitement 
end; 
iniligne (marge) : 
ecritmot; 
changer_ligne:=false; 
sous _end:=true; 
if pile vide 
then 


begin 
niveau:=niveau-!l; 
if 4*niveau<margemax 


then 
marge:=4*niveau 
else 
marge:=margemax 
end; 
if dernier car=' ? 
then 
begin 
while car_suivant=" ‘do 


lirecaract (programme, dernier car,car special); 
if car_suivant="'{" 
then 
begin 
commentaire; 
write(sortie,dernier car); 
lirecaract (programme, dernier car,car special) 
ena 
end 
end; 


procedure decal record end; 


begin 
writeln(sortie); 
aff_traitement; 
iniligne (marge); 
ecritmot; 
if pile vide 
then 
begin 
niveau:=niveau-1; 
if 2*niveau<margemax 


then 
marge:=2*niveaut6 
else 
marge:=margemax 
end 
end: 
begin 


while not pile{sommet].tabulation do 
depiler (marge) ; 
depiler (marge) ; 
if sous declar 
then 
decal record end 
else 
decal begin _end 
end; 


procedure decal boucle; 


begin 
chariger_ligne:=false; 
iriligne (marge) ; 
ecritmot; 
increment (1) 

end; 


procedure decal_ sous programme; 


begin 
writeln(sortie); 
aff_traitement; 
if sous declar 
then 
decrement (1) 
else 
increment (2); 
sous declar:=false; 
changer _ligne:=false:; 
iniligne (marge) ; 
niveau:=niveautl; 
ecritmot; 
debut_pro:=true; 
sous pro:=false 
end: 


procedure decal of; 


begin 
ecritmot; 
if sous case 
then 
begin 
changer_ligne:=true:; 
sous case:=false 
end 
end; 


procedure decal_ program; 
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begin 
writeln(sortie); 
aff_traitenent: 
debut_pro:=true; 
changer _ligne:=false; 





ini ligne (marge) : 
ecritmot 
end; 


procedure decal record; 


begin . 
enpiler(nbcel,t rue); 
ec ritmot; 
marge:-nbeol-6; 
ine rement (1); 
changer ligne:=true; 
hiveau:=niveau+1 

end; 


procedure decal repeat; 


begin 
iniligne (marge) : 
écritmot; 
empiler (marge, t rue); 
inerement (1); 
changer _ligne:=true 
end; 


procedure decal until; 


begin 
Îf not changer _ ligne 
then 
begin 
writeln(sertie); 
aff traitement 
end; 
while not pile[sémmet].tabulation do 
depiler(marde); 
dépi ler (ma rde) ; 
iniliigne (marge) : 
ecritmot; 
Changer _ligne:=false 
end} 
begin (TRAITMOT} 
sous end:=faise; 
case traitement of 
terme: 
decal terme; 
begin2!: 
decal begin; 
case2! 
deécal case; 
label2,const2,type2,var2: 
detail declarations; 
do2: 
decal do; 
then2,else2: 
decal_ conditionnelle; 
end?! 
deécal_ end} 
for2,if2;with2;while2t 
decal boucle; 
proc?, funet2: 
deeal sous programme; 
of2: | . 
decal_uf; 
program?! 
deeal program; 
record?! 
decal record} 
repeat 2: 
deeal _repeat ; 
until2t 
déeal until 
end 
end} 


fin_ligne:Boo)ean: 
i:integer: 


procedure traite programme: 
procedure point: 


begin 
write(sortie, dernier car): 
ÎF sous end or changer ligne 
then 
begin 
writeln(sortie): 
aff _ traitement 
end; 
end: 


procedure deux points: 


begin 
if sous declar or (car suivant="=t 
then 
write(sortié,;derniér car 
éise 
begin 
write(sortie, dernier car); 
Chéngèr ligne:=not début pro: 
if net &ebut pro 
then 
begin 
writein{(sortie); 
aff traitement: 
inc rement (2) 
end 


end; 
proceduré acccdgäauche; 


begin 
if changer ligne 
tren 
inilidgne (marde): 
write(sofrties;sdérnier car): 
répeat 
1irecaract (chaine; dernier c4âr,car sp 
writelsortie; dernier car) 
until defnier car=t}}; 
writein(sortie): 
aff _ traitement : 
Chänger lighe:=not sous end 
end; 





procedure pareñngauché; 


begin 
ÎF car suivant='st 
then 
begin 
Fin_iigne:-=-fàlse; 
writeln(sortie): 
aff traitement; 
write(softie,deèfnier c4r): 
repeat 
liirecäräct (chaine; dernier câr;car spéci4l): 
write(sortiesderniér car); 
iF Fin ligne 
then 
begin 
writeln(sortie); 
aFf traitement 
end; ° 
fin _ligne:=e6061n(entree) 
until (dernier car-'4l)ana(car suivant-t)i}; 
lirecaract (châine,; dernier Car;scaf specid!): 
writelñ(sortie;derhier caf); 
atf_ traitement 
erd 
else 
begin 
situation:-parenthesee:; 
write(sortie,; dernier ear); 
nbrpafentheses:=1l; 
träitcarsôrft (situation) 








Fichier INDENT3.TEXT 


{Fichier INDENT3,TEXT) 


eñd 
end; 


procedure point virgule; 


begin 
if hot pile vide and not sous deelar 
Frocedure traitearsort (var situation:eentexte)} then 
begin 
Var 


while hot pile[semmet].:taBulation de 
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depi ler (marge) ; 
marge : =pi le [sommet ].retour; end; 
increment (1) ; 


traitcarsort (situation) 


begin {traite parenthese} 
writeln(sortie, dernier car); li remot (parenthesee, dernier car); 
aff _ traitement; if length(tampon) <>0 
changer_ligne:=true; then 


sous _ end:=false ecritmot; 
end if dernier car in[°(','"'"'°,")!] 
else then 
if sous _declar case dernier car of 
then NE 
begin apost rophe: à 
writeln(sortie,dernier car); (': 
aff_traitement; parengauche; 
changer_ligne:=true ‘jt: 
end parendroite 
else end 
begin eise 


writeln(sortie, dernier car); 
aff_traitement ; write(sortie,dernier_ car); 
if debut pro traitcarsort (situation) 
then end 
begin end: 
debut_pro:=false; 


begin 


sous_pro:=true procedure traite chaine: 


end begin 
end; tampon:=""'; 
changer_ligne:=true memoriser (dernier car); 


end; repeat 
lirecaract (chaine, dernier _car,car_special); 
memoriser (dernier car); 
if (dernier car="""")and (car_suivant="""") 
begin then 
situation:=chaine; begin 
traitcarsort (situation); lirecaract (chaine, dernier _car,car_ special); 
situation:=programme memoriser (dernier car); 
end; lirecaract (chaine, dernier car,car_ special); 


procedure apostrophe; 








begin memoriser(dernier car) 
SE dernier car n T'as (ere Pense 0] end 
then until dernier car=""""; 
case dernier car of if changer _ligne 
Les then 
point; iniligne (marge) ; 
LA changer _ligne:=false; 
deux_points; ecritmot 
A end: 
accogauche; begin 
de nbco : ii 
parengauche; case situation of 
bete programme: 
point _ virgule; traite programme; 
runs parenthesee: 
apost rophe traite _parenthese; 
end chaine: 
else traite chaine 
begin end 
write(sortie,dernier car); end; 
if changer ligne 
then 
begin 
writeln(sortie); 
aff traitement {PROGRAMME FRINCIPAL} 
end fichiers ouverts 
end >tez le type fonction tooleenne en 
end; PASCAL qui permet d'effectuer une serie 


d'operations en effectuant un simple 
test.. 

aurait ete plus iourd de declarer 
FICHBER OUVERTS comme une procedure 
et de faire 






procedure traite parenthese:; 


procedure apostrophe:; 
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begin fichier _ ouverts (var erreur:boolean) 


situation:=chaine; 

traitcarsort (situation); 

situation:=parenthesee; 

traitcarsort (situation) 
end; 


procedure parengauche; 


if not erreur 


then 
begin 


initialiser:; 

aff_ traitement; 

while not eof (entree) do 
begin : 


begin liremot (situation, dernier car); 
nbrparentheses:=nbrparentheses+l; if length (tampon) >0 
write(sortie,dernier car): then 
traitcarsort (situation) begin 


end; 
procedure parendroite: 


begin 
write(sortie,dernier car); 


nbrparentheses :=nbrparentheses-]; 


if nbrparentheses=0 


transfert (mot_a_rechercher): 


traitmot (code reserve(mot_a rechercher)) 


end; 
traitcarsort (situation) 
end: 
close (entree,normal); 
close(sortie, lock); 
gotoxy (0,20); 


then writeln(ligne:4," lignes generees','"':18) 
situation:=progranme end 
else end 
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Le chäteau hanté 


Ce programme, écrit en Basic 
Etendu, est un jeu d'aventure en 
deux parties qui fonctionne sans 
extension de mémoire. 


La première partie du programme 
redéfinit les caractères et, dans le 
même temps, se charge de la 
présentation. 


La seconde partie correspond au 
jeu lui-même. 


On voit d'abord apparaître le plan 
du château (voir la copie 
d'écran). Vous devez, avec la 
manette de jeux numéro |, 
retrouver le trésor caché. Vous 
avez au début 200 ‘points de 
force’ qui diminuent au fur et à 
mesure que vous avancez (à zéro, 
vous êtes morts !). La première 
chose à faire, c'est de se diriger 
vers la tour numéro 1, où vous 
devrez combattre un dragon (il est 
impossible d'aller directement 
vers les autres tours car, dans ce 
cas, vous n'avez pas de bouclier, 
et alors...). Pendant le combat, 
vos forces déclinent mais vous 
gagnerez de toute façon. 


Ensuite, vous devrez prendre le 
bouclier pour aller en direction de 
la porte À (en chemin, vous 
pouvez très bien tomber dans un 
souterrain, Mais nous verrons ce 
‘détail’ un peu plus loin). 


Si tout c'est bien passé, vous 
arriverez dans un labyrinthe dont 
le tracé est invisible et où se 
déplace, aléatoirement, un 
fantôme (dangereux pour votre 
vie). Là, il vous faudra prendre 
l'épée et rejoindre rapidement la 
crypte par la porte située en haut 
et à gauche de l'écran. 


Dans la crypte, on doit trouver la 
clé ainsi que le blason qui se 
trouve derrière une des quatre 
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portes indiquées sur la copie 
d'écran de la crypte. Pour 
pouvoir regarder derrière elles, 1l 
suffit de se placer devant ; vous 
réapparaissez de l'autre côté du 
mur. Il faut, bien entendu, faire 
attention aux deux fantômes. Si 
vous trouvez la clé, un code de 
un chiffre apparaîtra en bas et à 
gauche de l'écran. Ce code vous 
permettra d'ouvrir la porte 
derrière laquelle se trouve le 
trésor. 


Cette porte existe à deux endroits 
(2!) : soit dans le plan du château 
(porte D}, soit dans les 
souterrains. 


Pour arriver à la porte du trésor 
(celle des souterrains), il faut 
d'abord passer par la crypte 
(porte indiquée). Ensuite, en 
faisant attention aux pierres, 
trouver le chemin caché de la 
porte du trésor. Là, on vous 
demandra le code ; si vous l'avez, 
vous gagnez. 


OALEZ 


AA 


BUY ÿ, 
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INNNANDNDS 
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FX 
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379 
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Pour arriver à l'autre porte du 
trésor (celle du plan du château. 
il faudra retourner dans le 
labyrinthe et prendre la porte à 
droite. Vous réapparaîtrez au 
niveau de la porte B. vous devrez 
ensuite rejoindre la porte du 
trésor en faisant attention aux 
dragons. La porte C est une 
fausse porte qui ne mène nulle 
part ; elle est uniquement là pour 
que vous perdiez vos forces. 
Pour conclure ce paragraphe, 
signalons que la clé, les 
boucliers, les dragons tués, 
l'épée et le blason rapporte des 
points pour les forces. 


Chargement 
du programme 


Ce jeu a été subdivisé en deux 
parties afin qu'il fonctionne sans 
extension de mémoire. Il faut 
d'abord charger la première 


Un 


partie, puis RUN... Le 

programme affiche une image 

d'introduction, suivie des 

classiques messages de 

chargement depuis une cassette, 

ceci pour charger la seconde 

partie du programme. Ces 

messages sont relativement 

difficiles à lire du fait de la 

redéfinition de certains caractères, 

mais il s'agit bien de : 

* REWIND CASSETTE TAPE CS1 
THEN PRESS ENTER 

* PRESS CASETTE PLAY 
THEN PRESS ENTER 

* READING 

DATA OK 

PRESS CASSETTE STOP 

THEN PRESS ENTER 


CSI 


* 


* 


CS1 


Avec un lecteur 
de disquettes 


Il convient de remplacer le 

RUN "CS1" 

de la ligne 270 (dernière ligne du 
premier segment de programme) 
par 

RUN "DSKl.nom du segment" 


Ainsi, Si vous avez sauvegardé le 
deuxième segment sous le nom 
de "CHATEAU?2", 

RUN "DSK1.CHATEAU2" 
conviendra parfaitement. 
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Programme 
“Chateau hanté” 


Note : afin d'en faciliter le comptage, les 
espaces situés dans les chaînes de 
caractères sont ici visualisés à l'aide de 
puces’ (+). 


Première partie 
Basic Étendu 


10 CALL CLEAR 

20 DATA 42,999999FFFFFFFE 
FF,59,0428101019112200 
, 43,18183CFE3D3C2424, 6 
4,183C5A7FFFFFF3FF, 120 
, 00183C7E7E7E7E7E00 

30 DATA 44,000000C0E0C1FD 
3F, 128, 00041A2D3755SAED 
D,140,181828FC3C5F1F1F 
,129, 0000E0BFE7010000, 
130, 00002030FF302000,1 
41,007C7C6C446C7C38 

31 DATA 97,FFE7EYEYEYE?7FF 

















Tour 
RUE SSSR 
2 
É 24 
Porte TR RE 4 SY Cé 
Ï “ 
SE] D | 
É Î 
Possibilité : I 
d'une a 1# 
trappe t 
FORCE: 200 


FF,115,FFFEFCF8FOE0CO8 
0,116,FF7F3F1F0F070301 
,104,000000FFFFFF0000, 
105,1818181818181818 

35 DATA 46,3C7EFFFFFFFF7E 
3C,106,FFFFFCF8FOFOE0E 
0,107,FFFF3F1FOFOFO707 
,45,1818FFFF18181818 

40 FOR I=1 TO 20 

50 READ AÀ,BS 

60 CALL CHAR(A,BS) 

70 CALL HCHAR(3+1I,I+2,A) 

80 NEXT I 

90 FOR I=1 TO 500 

z 
100 CALL COLOR(11,13,2):: 
CALL SCREEN (2) 

110 CALL COLOR(2,14,2):: 
CALL COLOR(4,2,14):: C 
ALL COLOR(5,14,2):: CA 
LL COLOR(12,14,7) 

120 CALL COLOR(13,11,2):: 

CALL COLOR(14,9,2):: 
CALL COLOR(9,14,2) 
130 CALL COLOR(10,13,13) : 
CALL CLEAR 
140 AS="e....se.........e 


:: NEXT 


000000... 

0000 XXKHKKeeseeeeece 

oo **Xkeee: 2; ;ese* 
sr Arr 


X*keo.e!"! 


rs ;eereseeree a; ** 

117 ’ ’ 

XHKXKXXXHHegG 00000000 
’ ’ 


Sn .….… 


160 C$="e....;2;;;;a;;a; 


. S Des d'oe © 6:06 ... 
’ Arrrr h FONLE 


h" 
165 CALL COLOR(10,13,13) 
170 DS="hhhhh-.........e 
..s...hhhhhhhhhhhhhhh 


Plan du Chateau 


hhs°-thhhhhhhhhhhhhhhhh 
hhhhhhhs --+thhhhhhhhhh 
hhhhhhhhhhhhs°-.e..e.thhh 
hhhhhhh" 

172 ES="hhhhhhhhhhsee...ee 
thhhhhhhhhhhhhhhhhhs° 
cs.s.ssessthhhhhhhhhhhhh 
hhhs.e.........sthhhhhh 
hhhhhhhhse........... 
thhhhhh" 

180 DISPLAY AT(1,1):AS;B$S 
; CS:DSYES 

190 CALL SPRITE(#1,120,2, 
65,126) :: CALL .SPRITE( 
F#3:43;:5;:1390; 126) 

200 CALL MAGNIFY (2) 

215 FOR I=1 TO 2 

220 CALL SOUND(500,196,0) 
:: CALL SOUND(500,196, 
2):: CALL SOUND(300,17 
5,0):: CALL SOUND (500, 
196,0):: CALL SOUND(30 
0,220, 0) 

230 CALL SOUND (300,233, 0) 

:: CALL SOUND(500,220, 
0):: CALL SOUND(500, 22 
0,2) 

240 CALL SOUND(500,196,0) 

:: CALL SOUND (500,175, 
0):: CALL SOUND(500,19 
6,0):: NEXT I 

250 CALL SOUND (30,380, 0) : 

CALL MOTION(#3,-5,0) 

CALL COINC(#3,#1,3, 

C):: IF C=-1 THEN 260 
ELSE 250 

260 CALL MOTION(#3,0,0):: 

FOR I=3 TO 16 :: CALL 

POSITION(#1,W,WW):: C 
ALL SPRITE(#1,43,1I,W,W 
W) :: CALL SOUND(200,-5 
,0,110,0):: NEXT I 
270 CALL DELSPRITE (#3, #1) 
: RUN "CS1" 
Note : si vous utilisez un lecteur de 
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disquettes, remplacez RUN "CS1" par 
RUN "DSK1.CHATEAUZ2" (si, bien sûr, la 
seconde partie a été sauvegardée sous 
le nom de “CHATEAU2"). 


Programme 

“Chateau hanté” 

Seconde partie 

Basic Étendu 

1 RZ=64 :: RR=0 RANDOM 
IZE :: Z=1 : MN=0 

2 VV=INT(RND*9)+1 :: N=18 

:: M=24 :: FO=200 
10 DIM PS(25) 
250 CALL CLEAR CALL SC 


REEN(16):: 
2 ldy LOPES 
25 14).5% 
O2;,16)2: 
2,9,16) 
251 CALL DELSPRITE (#1) 
260 AAS$="-.+hhhhhhhhhhhhh 
hhhhhhhhhhec.sssjesieee 


ce X*eseeesecocesejeeses] 


CALL COLOR( 
CALL COLOR( 
CALL COLOR (1 
CALL COLOR (1 


joe xei 


jee... 
cosssjxejiesiee; 
…osoje." 


270 AB$="e.eje.i--hhhhhhh 
hhhhhhhhhi-seesjesjiee]i 


core jesese)i 


ee 
’ 


cesse] 


es..sje....-hhhhhhhhhhh 
hhhheie-e" 

280 AC$="eeoiesieeixeieee 
see jeeesejhhhhe.i 
closes jeesee] 


sole. se] 


c.sssjecs..ihhhhhhhhhh 
hhhhhie-e" 

290 ADS="ese1* jee... 
.ssssssojee.e.s]; hhhh 
hhhhhhhhhhhe.e.ssiese.s] 


srsooosoooooorxeieeeei 
c.s..ihhhhhhhhhhhhhhhh 
hhhhh1i" 

300 DISPLAY AT(4,1):AAS:A 
B$ : ACS : ADS CALL HCH 
AR(N,M,43) 

305 CALL MAGNIFY(1) 

310 GOSUB 5000 T=INT(R 
ND*4) +1 

320 CALL JOYST(1,X,}Y) 

325 IF X=0 AND Y=0 THEN 3 
20 

330 B=M :: A=N 

340 M=X*0.25+M 
25+N 

350 CALL GCHAR(N,M,C) 

360 IF C=104 OR C=105 THE 
N 600 


:: N=-Y*0. 
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ÿ 
. . 
2 
2 
2 
12 
12 
2 


370 IF C=42 OR C=59 THEN 
1000 
375 IF M=11 AND N=13 AND 
Z<2 THEN 6000 
IF M=27 AND N=13 THEN 
800 
IF M=14 AND N=13 THEN 
720 
FO=FO-1 :: GOSUB 5000 
CALL HCHAR(N,M,43):: 
CALL HCHAR(A,B, 32) 
405 IF M=21 AND N=18 THEN 
700 
410 IF M=13 AND N=18 AND 
T=-2 THEN 420 ELSE 320 
420 CALL HCHAR(18,13,30,1 
):: CALL SOUND(500,176 
0,0):: GOTO 8500 
600 M=B :: N=A 
610 GOTO 320 
700 M=7 :: N=21 
000 :: FO=200 
720 DISPLAY AT(24,1):"COD 


378 


379 


380 
400 


Co 


GOTO 


E:" :: ACCEPT AT(24,6) 
#PO : 
730 IF PO=VV THEN 2810 EL 

SE 6000 
800 IF Z>1 THEN V=50 ELSE 
V=0 
810 FO=FO-1 GOSUB 5000 


:: IF FO<V THEN 250 
820 CALL HCHAR(N,M-1,453): 
CALL HCHAR(N, 20,140) 
CALL HCHAR(N,M-1, 32 
):: CALL HCHAR(N, 20, 32 


830 CALL HCHAR(N,M-3, 43) : 
CALL HCHAR(N,21,140) 

: CALL HCHAR(N,M-3, 32 

):: CALL HCHAR(N, 21, 32 


840 CALL SOUND (30,380, 0) : 





GOTO 810 
V=INT ( 


: Z=Z-1 
1000 CALL CLEAR 

RND*(150-80))+80 
1110 BAS="00000 XX ke. #xx 


Xk eee... : 
rrir 


ie. 5 2%, 2: 0: v 0 

ÉCSTNTLST 

ee © 2 © ®,e + je is =, + + .….. 
CESTTLTTTETETY 

se cer ee . 


een 2; 
17 » rs Ar 


00.2: ;:v000000000000e 
’ 2 11 


_….... ...... 

se À deie 0 2.8-S18 © 6:56 
tee eee r sas ’r Ar; 
….......!! 


1240 Besse} rer 


| 
|A 4 tEN EE 
00. 
PET 

CCR ROLL] 
sir A 

000 "0 "ee 

sr 17 

........!! 


1150 BE$="..0e; 


S2.v 01615 € 616 0.0: 610 0 0 0/0 je 016 :8 
’ 


0... 

’ 

de re vis Ne » ‘os 901 1e ...... 
PV LTELLIITEL 


...!! 


1155 DISPLAY AT(5,1):BAS; 
BCS; BDS$S;BES 

1160 CALL MAGNIFY(2) 

1180 CALL SPRITE(#3,141,9 
525, 97) 

1190 CALL SOUND(30, 380,0, 
=5;0) 

1200 FO=FO-1 GOSUB 500 
0 :: IF FO<V THEN 1300 

1210 CALL SPRITE(#1,43,2, 
130, 90,#2,140,9,130,10 
0):: CALL SPRITE(#1,43 
2,130, 80,82, 140, 9, 130 
,110) 

1220 GOTO 1190 


1300 FO=FO+40 GOSUB 50 


00: :55 EOR I=1 TO .S sa 
CALL SOUND(40,380,0):: 
NEXT I Z=2+1 
1310 CALL JOYST(1,X,Y):: 
CALL MOTION(#1,-Y,X):: 
CALL DELSPRITE (#2) 
1320 CALL COINC(#1;,#3,5,C 
):: IF C=-1 THEN 1330 
ELSE GOTO 1310 
1330 FO=F0+30 :: GOSUB 50 
00 :: CALL MOTION(#1,0 


, 0) CALL DELSPRITE (# 
5) 

1350 M=9 :: N=18 GOTO 
250 


1500 CALL COLOR(11,6,6) 

1510 PS(9)="eeeWwwwwwwwww 
WWWWWWWWWIUN + °° 0 ° e WWWW 
WWWWWWWWWWWNWNWWNWWeeeeee 
NWWWWWWWWWNNNN UN 


oo pugeeeeese 
0... !! 

1520 PS(10)="-00000.0we.w 
WWWWWWwWwWweslecccereses.e 
°oWeeXXXXXXXXXee le. 
°esssssswye-aaaaaaaaa/!! 


leo gyeeessse 
cos lle..." 

1530 PS(11)="-000e+ewwwee 
0.0 le 
WWWWWeessesexleeleseee 
co oNWWWWWwWWeeesecelel 
lose wmgeeesee.e 
sole. le..os" 

1540 PS(12)="ee°WWwwwwwwww 
wesersoleelec.s.ee www 
WWWWWWwWWesseseeleele...s 
0... le... le 
lle... lee...e 
111leelesces." 

1550 PS(13)="00000000010 


cosolesssele.s..s..e 


cl EVILITIFTIVTIINT ler c'e 


1560 CALL SCREEN (2) 

1570 DISPLAY AT(4,i):PS(9 
):PS(10):PS(11):PS(12) 
PS (13) 

1580 FOR I=3 TO 7 

COLOR (I,16,2):: 

T 

1700 CALL HCHAR(N,M,43):: 

Q=25 :: L=1 00=8 

1800 MZ=6 :: NZ=17 

1900 CC=1 

2000 FO=FO-1 
0 

2005 BZ=MZ :: 

2006 AL=Q :: LL=Q00 

2010 CALL JOYST(1,S,D):: 
MZ=MZ+CC :: QO=00+L 
CALL GCHAR(NZ,MZ,Y):: 
CALL GCHAR(O0O,0,R):: 
IF Y=32 THEN 2500 :: I 
F Y=43 THEN 6000 

2011 IF R=32 THEN 2600 


CALL 
NEXT 


GOSUB 500 


AZ=NZ 





DÉREEEEEEE EE EEE TEST EEE ETES CCE EEE ETES TES ETC EEE ETS CEE TETE 


IF R=43 THEN 6000 
CALL HCHAR(AZ,BZ,119): 
: CALL HCHAR(NZ,MZ, 64) 

2012 CALL HCHAR(LL,AL, 119 
):: CALL HCHAR(OO, O0, 46 
) 

2015 B=M :: A=N 

2020 M=S*0.25+M 

2030 N=-D*0.25+N 

2040 CALL GCHAR(N,M, X) 

2050 IF X=32 THEN 2300 

2060 IF X=64 THEN 6000 

2061 IF X=120 THEN 2350 

2065 IF N=14 AND M=22 THE 
N 2800 

2070 IF FO=0 THEN 6000 

2090 CALL HCHAR(A,B,119): 
: CALL HCHAR(N,M, 43) 

2100 GOTO 2000 

2300 M=B :: N=A :: BZ=MZ 
:: AZ=NZ :: MZ=MZ+CC : 
: CALL GCHAR(NZ,MZ, YŸ) : 
: IF Y=32 THEN 2500 
CALL HCHAR(AZ,BZ,119) 

2310 IF Y=43 THEN 6000 


LL=0Q :: AL=Q :: O0=0 
O+L CALL GCHAR(QO,0Q 
/R):: IF R=32 THEN 260 
O0 :: CALL HCHAR(LL,AL, 
119):: GOTO 2010 

2350 M=7 :: N=7 GOTO 4 

000 


2500 CC=-CC :: CALL HCHAR 
(AZ,BZ,64):: GOTO 2010 

2600 QO=LL :: Q=AL CAL 
L HCHAR(00,0,119):: QOQ 
=8 :: GOTO 2010 

2800 DISPLAY AT(24,1)BEEP 
: "DONNE LE CODE:" :: A 
‘CCEPT AT(24,15):AS :: 
IF AS=VV THEN 2810 ELS 


E 2830 


2810 CALL CLEAR CALL M 
AGNIFY(2):: CALL SPRIT 
E(#8,128,12,130,100, #1 


#83, 5,-130,.120) 85% FOR EF 
=1l TO 3 

2811 FOR I=1 TO 16 :: CAL 
L SCREEN(I):: CALL SOU 


ND(100, (I*7) +110, 0) :: 
DISPLAY AT(20,12):"GAG 


NE!!1111" :: NEXT I 
2820 NEXT F :: GOTO 7000 
2830 M=BZ =AZ GOTO 

2010 


3000 PS(14)="-eexZZ222Z2LE 
ZZZZZLZZZZeLee.eeereZe 
Zoo ZoZeosesee 
coZeZoZeDe22122222ZeZe 
oo ToTZTeoZeoZeeee 
PATAEEEEEEEL 

3010 P$(15)="eeZeZeeeZeZZ 
ZZZeZeotesereseee22ZZ 
ZeZesosZosoZeZeee..ese 
coZeoveZe22ZIZZZeZZZe 
soso ZDeZ12Te22LZZe 
Zoo." 

3020 PS(16)="eeZeeZeeeee 
co 77ZZZZooe.e.e0Zeo7Z 
ZoZeoZZTZZeZZeZee.e..e 
co ZDoZeoZoZesZogesgoZeZe 
soscooceZZZe22222Ze22Z 
ZeZoZe....e" 

3030 P$S(17)="eeeZeeeuee 
PRE A NS 
ZZZZ2Z2Z22ZZZZZeeseeee 
PAT AE EEE EEE AT A0 
cosooc.e22222222222222 
ZeZexesess.." | 

3040 PS(18)="eeZeese.e.e 
PAR AT AE EEE EEE A A 7 
ZZZ2Z2ZZeZZZeZeZeesesee 
ASSET AT AT AT AE 
cossoocexZ2ZZ2ZZZZZIZe 
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ZLLZLZZLZe......" 


3043 FOR I=3 TO 7 :: CALL 
COLOR (I,16,2):: NEXT 
I 
3050 ÇCALL SCREEN(2):: CAL 
L COLOR(8,2,2):: CALL 


COLOR(11,6,6) 

3060 DISPLAY AT(1,3):PS(1 
4) :PS(15):PS(16) :PS(17 
):P$(18) 

3070 IF MN<1 THEN CALL HC 
HAR(9,15,130):: CALL C 
OLOR(13,12,2) 

3075 MZ=12 :: NZ=12 

3080 CALL JOYST(1,X, Y) 


3085 A=N :: B-M 

3090 BZ=MZ :: AZ=NZ 

3100 N=-Y*0.25+N :: M=X*0 
.25+M 


3110 MZ=INT(RND*25+1):: N 
Z=INT (RND*23+1):: CALL 
GCHAR(NZ,MZ,SS):: IF 
SS=120 OR SS-130 THEN 
MZ=M2Z+1 

3120 CALL HCHAR(AZ,BZ,119 
):: CALL HCHAR(NZ,MZ, 6 
4) 

3130 CALE COLOR (2,9, 6) :: 
CALL GCHAR(N,M,XX):: I 
F XX=32 THEN 3300 :: I 
F XX=130 THEN 3400 
IF XX=64 THEN 6000 

3140 FO=FO-1 GOSUB 500 
0 

3150 IF M=5 AND N=2 THEN 
3720 IF M=5 AND N=2 
1 THEN 3700 IF M=23 
AND N=17 THEN 3750 


3160 IF FO<0 THEN 6000 
3170 CALL HCHAR(A,B,119): 
: CALL HCHAR(N,M, 43) 

3180 GOTO 3080 

3300 M=B :: N=A GOTO 3 
080 

3400 FO=FO+50 GOSUB 50 


00 :: CALL SOUND(100,3 


80,0,1760,0):: MN=1 :: 
M=B :: N=A :: CALL HC 
HAR(9,15,119):: GOTO 3 
080 

3700 M=18 :: N=18 GOTO 
250 

3720 M=21 :: N=6 GOTO 
4000 

3750 M=8 :: N=9 GOTO 2 
50 

4000 CALL CLEAR :: CALL S 
CREEN(6):: CALL HCHAR( 
N,M,43):: GG=INT(RND*2 
) +1 


4010 CALL COLOR(9,5,5) 

4020 PS(19)="-+cccccccccc 
COCCÉCÉCCCC ve es eCCIK 
cikcjikcjkcijkcjkcceeeee 
SeCOXKCLICIICILCLICXXC 


Ceres eveiC:e © 0.0 © c'e 0 06:65 0 © 
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Porte allant 
au labyrinthe 


Forte allant 


aux 
souterrains 
Portes 
pouvant 
contenir là 
clé ou le 
blason 


ssecese.!" 
4030 PS(20)="e0ce0.00000e 
soso CeesesesCree 


00.000000 [ 


ve. Ce te CCCECCCCCCCEC®* Eee 
Cesessssceeecjkcikcikc 
Jkceeeceee.." 

4040 PS(21)="-e0ceeecxxcii 
CiiCXkCeeeCeesesesCeee 


Ce e 6:00 6 0:10 10: 262.06 Cie. 006 9 0 
cree» 6 0 015€ dote es 218.0 0:00 0 0 
CroeeeersCsesCs 216.0 0 06 6 0 


ccerece....!! 


4059 P$(22)="eeceeeCCCCCcC 
GECCCEC te EE vie 0 056 0 2C;e 0 0e 
CIRCIKCIKCJKE:S se C'eeis ce 
Ce CXKOLICÉICXACE ee 
Ce. Ceerenuee 
ss Ce....! 

4060 PS(23)="escesssesee 
soso soporosesoceee 
ce ere ;e Qroie 0 2e me: 6,672: 0 6.0 
ACCOCCCECCOCCCCCCCCEC 
ces..." 

4090 DISPLAY AT(3,1):PS(1 
9) :P$ (20) :P$ (21) :P$ (22 


) :PS(23) 

4100 H=7 : P=16 :: U=23 
:: E=8 

4105 BB=1 : DD=1 

4110 CALL SOUND(100,-5,0, 
110,0) 


4120 CALL JOYST(1,X,7Y) 
4130 HZ=H :: PZ=P UZ=U 
: E3=E 

4140 P=P-BB :: E=E+DD :: 
CALL GCHAR(P,H,TZ):: C 
ALL GCHAR(E,U, ZT) 

4150 IF TZ=43 AND RR=0O TH 
EN 6000 :: IF ZT=43 AN 
D RR=0 THEN 6000 :: IF 

TZ-43 AND RR=1 THEN 4 





950 :: IF ZT=43 AND RR 
=] THEN 4950 
4155 FO=FO-1 :: GOSUB 500 
O0 :: IF FO<O0 THEN 6000 
4160 IF TZ=120 OR TZ=99 T 
HEN 4400 :: IF ZT=i20 
OR ZT=-99 THEN 4420 
4170 CALL HCHAR(PZ, HZ, 32) 
CALL HCHAR(EZ, UZ, 32 
):: CALL HCHAR(E,H,RZ) 
:: CALL HCHAR(E,U, R£Z) 
4180 B=M :: A=N :: M=X*0. 
5+M :: N=-Y*0.254+N 
4190 CALL GCHAR(N,M,XX) :: 
IF XX=64 AND RR=0 THE 
N 6000 IF XX=9G THE 
N 4450 
4194 IF X=0 AND Y=0 THEN 
4120 
4200 IF M=7 AND N=-6 THEN 
4500 IF M=23 AND N- 
6 THEN 4550 IF M=11 
AND N=18 THEN 4600 
IF M=19 AND N=18 THEN 
4650 
4210 IF M=11 AND N-12 THE 
N 4900 :: IF M=19 AND 
N=12 THEN 4970 
4220 CALL HCHAR(A,B, 32) :: 
CALL HCHAR(N,M, 43) 
4230 GOTO 4120 


4400 P=PZ :: H=HZ BB=- 
BB :: GOTO 4120 

4420 E=EZ :: U=UZ DD=- 
DD GOTO 4120 

4450 M=B :: N=A GOTO 4 
120 

4500 M=24 :: N=10 GOTO 
1500 

4550 M=6 :: N=3 GOTO 3 
000 


4600 IF GG=2 THEN 4610 EL 


SE 4602 
4602 M=B :: N=A :: CALL H 
CHAR (N,M,32):: CALL SO 
UND (100,-5,0,110,0):: 
N=13 :: GOTO 4120 
4610 CALL HCHAR(17,11,141 
):: CALL SOUND(1000, 52 
9,0):: FOR I=1 TO 500 
:: NEXT I :: CALL HCHA 
R(17,11,120):: N=A :: 
=B :: CALL HCHAR(N,M, 
32) 
4611 RR=1 
4120 
4650 IF GG=1 THEN 4660 EL 
SE 4651 
4651 N=A :: M=B :: CALL H 
CHAR (N,M,32):: CALL SO 
UND(100,-5,0,110,0) :: 
N=14 :: GOTO 4120 
4660 RR=1 :: CALL HCHAR(1 
7,19,141):: CALL SOUND 
(1000,529,0):: FOR I=1 
TO 500 :: NEXT I :: C 
ALL HCHAR(17,19,120):: 
M=B :: N=A 
4661 CALL HCHAR(N,M, 32) :: 
N=14 :: GOTO 4120 
4900 IF GG=1 THEN 4910 
4905 N=A :: M=B :: CALL H 
CHAR (N,M,32):: CALL SO 
UND (100,-5,0,110,0):: 
N=8 :: GOTO 4120 
4910 CALL HCHAR(11,11,129 
):: CALL SOUND(1000, 52 
9,0):: DISPLAY AT(24,1 
):"CODE="; VV :: FOR I= 
L TO 500 :% NEXT EI :: 


2 N=13 #5 :GOTO 





M=B :: N=A :: CALL HCH 
AR(N,M, 32) 

4911 N=8 :: GOTO 4120 | 

4950 FO=FO+20 :: GOSUB 50 
00 

4955 RZ=32 :: GOTO 4120 

4970 IF GG=2 THEN 4980 EL 
SE 4975 

4975 M=B :: N=A :: CALL H 
CHAR (N,M,32):: CALL SO 


UND (100,-5,0,110,0):: 
N=8 :: GOTO 4120 


Fantôme ' 


Chemin 2? ,: 
caché 


4980 CALL HCHAR(11,19,129 
):: CALL SOUND(1000, 52 
9,0):: FOR I=1 TO 500 
:: NEXT I :: M=B :: N= 
A :: CALL HCHAR(N,M, 32 
):: N=8 

4985 DISPLAY AT(24,1):"CO 
DE=";VV :: GOTO 4120 

5000 DISPLAY AT(23,5)SIZE 
(11): "FORCE: "FO s2 RE 
TURN 

6000 CALL SCREEN(2):: CAL 
L CLEAR :: FOR F=1 TO 
10 :: CALL HCHAR(INTI(R 
ND*20)+1, INT (RND*30) +1 
45):: NEXT F 


ss À 


6010 CALL MAGNIFY(2):: CA 
LL COLOR (2,9,2):: CALL 


SPRITE(#1,44,5,125, 90. 


) 

6020 CALL SOUND(1000,523, 
0,659,0):: CALL SOUND( 
1000,392, 0,523;0)?: (CA 
LL SOUND(1000,330,0,39 
2,0):: CALL SOUND(1000 


,262,0,330, 0) 
6030 CALL SOUND(1000,131, 
0) 





Souterrains 

6040 G=G+1 : IF G=4 THEN 
7000 

6050 M=24 :: N=18 :: GOTO 
1 

7000 CALL CLEAR :: DISPLA 


Y AT(10,10):"ENCORE 1 
FOIS?:" ss; ACCEPT AT(1 
0,26) :S$S 
7010 IF SS$S="o" THEN 1 ELS 
E END 
8500 M=23 
1500 


:: N=5 :: GOTO 


Aux Texans 
d'Alsace 


Jusque là, “99 Magazine” 
constituait le lien entre les 
utilisateurs encore mordus 
par les. qualités du 
T1-99/4A. Ce dernier lien 
disparaît. Pour ceux qui ne 
tiennent pas à tout ranger de 
suite dans un coin du 
grenier, pourquoi ne pas 
garder le contact. Mon 
nom : 


Henri Mathian 

76 bis, rue de la Vallée 
67140 BARR 

Tél. : 88.08.16.14 
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Basic 11 


Jean-Pierre Dhée 


Dessins en 


s 
PPETETEITEL LILI ILELELLEL EEE TL LELELELELTELEELES ELLE ELLE EEEELCECEEECEECELEEEEEECEEEECEEEEEEEEECELEEEECECEEECECEEEEEEEEEEEEEEEEEEEEEEEE 


Ceci n'est pas à proprement 
parler un programme ; il s'agit 
plutôt d'une ‘fantaisie’ graphique 
visant à représenter notre Train à 
Grande Vitesse national sur 
l'écran du TI, en Basic TI. 


Ce travail a été réalisé par les 
élèves dessinateurs du Lycée 
Professionnel d'Ermont - Val 
d'Oise - sous la direction de 


Jean-Pierre Dhée, leur 
professeur. 
La seconde copie d'écran 


représentant une maison en 
perspective (nous n'avons pas 
joint le listing, faute d'avoir assez 
de place) est issue de la même 


équipe. 





Programme 200 CALL HCHAR(9,21,159) 380 CALL HCHAR(17,23, 36) 
“Dessin du TGV’ 210 CALL HCHAR(10,8,159,6 390 CALL CHAR(37, "0000000 
| ) 000000107") 
Basic TI 220 CALL HCHAR(13,23,159) 400 CALL HCHAR(6,12,37) 
230 CALL HCHAR(11,12,159) 410 CALL CHAR(38,"01030F1 
10 REM 240 CALL HCHAR(14,13,159, F7EF8F0C3") 
20 REM 2) 420 CALL HCHAR(6,13,38) 
30 REM 250 CALL HCHAR(15,14,159) 430 CALL CHAR(39, "F8E0CO0 
40 REM  ***#**xxkkkxxkxxx 260 CALL HCHAR(16,15,159) 0003FFFFF") 
+ ** 270 CALL HCHAR(15,21,159, 440 CALL HCHAR(6,14,39) 
50 REM 4) 450 CALL CHAR(40, "0000000 
60 REM * LYCEE D'ERMONT 280 CALL HCHAR(16,21,159, O0OFFFFFF") 
* 5) 460 CALL HCHAR(6,15,40,2) 
70 REM DHEE Jean Pier 290 CALL HCHAR(17,16,159, 470 CALL CHAR(41, "0000000 
re 2) 00000FCFF") | 
80 REM  ****X*#XXX4#XX4%x44 300 CALL HCHAR(18,17,159, 480 CALL HCHAR(6,17,41) 
dti 6) 490 CALL CHAR(42,"O001F1F1 
90 REM 310 CALL CHAR(158,"COFFFF 3030F3F7C") 
100 REM « “EFFFFESFEFF”) 500 CALL HCHAR(7,11,42) 
120 REM 320 CALL HCHAR(17,18,158) 510 CALL CHAR(43,"1FFFFFF 
130 REM 330 CALL CHAR(34, "COCO0808 9FBFFFFFF") 
140 REM 080000000") 520 CALL HCHAR(7,12,943) 
150 CALL SCREEN(3) 340 CALL HCHAR(16,26,34) 530 CALL CHAR(44,"871FFFF 
160 CALL CLEAR 350 CALL CHAR(35,"OF81FFF FFFFFFFFF") 
170 CALL CHAR(159,"FFFFFF FFFFFFFFF") 540 CALL HCHAR(7,13,44) 
FFFFFFFFFF") 360 CALL HCHAR(17,19,35) 550 CALL CHAR(45, "FFFEFEF 
180 CALL HCHAR(12,10,159) 370 CALL CHAR(36,"FFFFFFF EEFEFFFFF") 
190 CALL HCHAR(8,17,159) FFFFFF8FC") 560 CALL HCHAR(7,14,945) 





99 Magazine n° 11 


570 CALL CHAR(46,"60001F7 
EFFREFECC") 

580 CALL HCHAR(7,15,46) 

590 CALL CHAR(47, "O300FFF 
F8FFF0300") 

600 CALL HCHAR(7,16,47) 

610 CALL CHAR(48,"FFO7FFF 
FOOFFFF O0") 

620 CALL HCHAR(7,17,48) 

630 CALL CHAR(49,"FS8FFFFF 
FO3FCFFO0") 

640 CALL HCHAR(7,18,49) 

650 CALL CHAR(50, "O080F0F 
EFF3FFBFEF") 

660 CALL HCHAR(7,19,50) 

670 CALL CHAR(51, "0000000 
OCOFOFEFF") 

680 CALL HCHAR(7,20,51) 

690 CALL CHAR(52, "0000000 
000000107") 

700 CALL HCHAR(8, 9,52) 

710 CALL CHAR(53, "0003071 
PF3EF9F3CE") 

720 CALL HCHAR(8,10, 53) 

730 CALL CHAR(54, "FEE3CF1 
FYFFBE79F") 

740 CALL HCHAR(8,11,54) 

750 CALL CHAR(55,"FFFFFFF 
FFFFFFCFO") 

760 CALL HCHAR(8,12,55) 

770 CALL CHAR(56,"FFFFFFF 
EE0810303") 

780 CALL HCHAR(8,13,56) 

790 CALL CHAR(57, "FFF8COF 
9F3B3B727") 

800 CALL HCHAR(8,14,57) 

810 CALL CHAR(58,"7F7FFFF 
FFFFY7EF7E7") 

820 CALL HCHAR(8,15,58) 

830 CALL CHAR(59, "8F8FCFC 
FEYEY7E7F3") 

840 CALL HCHAR(8,16,59) 

850 CALL CHAR(60, "COFFFFF 
FFFEPFPFEF") 

860 CALL HCHAR(8,18,60) 

870 CALL CHAR(61,"OF80F8F 
CPHCFEFFEF") 

880 CALL HCHAR(8,19,61) 

890 CALL CHAR(62,"FF3F037 
ETF 3F3F3F") 

900 CALL HCHAR(8,20,62) 

910 CALL CHAR(63, "COF8FE3 
FEYREPFEER") 

920 CALL HCHAR(8,21, 63) 

930 CALL CHAR(64, "0000000 
O080COC0E0") 

940 CALL HCHAR(8, 22, 64) 

950 CALL CHAR(65, "0000000 
003070F3F") 

960 CALL HCHAR(9,8, 65) 

970 CALL CHAR(66, "OF3E7DF 
3EFDFFFFD") 

980 CALL HCHAR(9, 9,66) 

990 CALL CHAR(67, "9E7DFFEF 
FFCEOC3SEF") 

1000 CALL HCHAR(9,10,67) 


1010 CALL CHAR(68,"7FF8E0 
00001FFFFF") 

1020 CALL HCHAR(9,11,68) 

1030 CALL CHAR(69, "800000 
037FFFFFFF") 

1040 CALL HCHAR(9,12,69) 

1050 CALL CHAR(70, "030606 
ODFFFFFFFF") 

1060 CALL HCHAR(9,13, 70) 

1070 CALL CHAR(71,"6F6FFF 
FFFFFF8F8F") 

1080 CALL HCHAR(9,14,71) 

1090 CALL CHAR(72,"F7FFFF 
FFFFFFO0703") 

1100 CALL HCHAR(9,15, 72) 

1110 CALL CHAR(73,"F3F3FF 
FFFFFF80C0") 

1120 CALL HCHAR(9,16, 73) 

1130 CALL CHAR(74,"FFFFFF 
FFFFFF0000") 

1140 CALL HCHAR(9,17,74,2 
) 

1150 CALL CHAR(75,"FFFFFEF 
FFFFFF3F00") 

1160 CALL HCHAR(9,19,75) 

1170 CALL CHAR(76, "9FDFCF 
E7FFFFFFOF") 

1180 CALL HCHAR(9,20, 76) 

1190 CALL CHAR(77, "FOFOF8 
FCFCFEFFFF") 

1200 CALL HCHAR(9,22,77) 

1210 CALL CHAR(78, "000103 
070F0F0703") 

1220 CALL HCHAR(10,7,78) 

1230 CALL CHAR(79, "EOF078 
3C1E0F0703") 

1240 CALL HCHAR(10,16, 79) 

1250 CALL CHAR(80, "000000 
00000080C0") 

1260 CALL HCHAR(10,17,80) 

1270 CALL CHAR(81,"FFOF03 
0000000000") 

1280 CALL HCHAR(10,22,81) 

1290 CALL CHAR(82, "80C0E0 
F0783C1E0F") 

1300 CALL HCHAR({10,23, 82) 

1310 CALL CHAR(83,"FFFF7F 
1F0F070301") } 

1320 CALL HCHAR(11,8,83) 

1330 CALL CHAR(84, "019000 
0000000000") 

1340 CALL HCHAR(10,15,84) 

1350 CALL CHAR(85, "FF7FCF 
F6FEFFFFFF") 

1360 CALL HCHAR(11,7,84) 

1370 CALL HCHAR(11,9,85) 

1380 CALL CHAR(86,"FFFFFF 
FFOFCOFOF8") 

1390 CALL HCHAR(11,10,86) 

1400 CALL CHAR(87,"FFFFFF 
FFFFFFO0700") 

1410 CALL HCHAR(I1,11,87) 

1420 CALL CHAR(88,"FFFFFE 
FEFEFEFEFE") 

1430 CALL HCHAR(11,13,88) 

1440 CALL HCHAR(11,16,84) 


1450 CALL CHAR(89, "EOF078 
3C1C0E0F07") : 

1460 CALL HCHAR(1i,17,89) 

1470 CALL CHAR(90, "000000 
0000018FFF") 

1480 CALL HCHAR(11,18, 90) 

1490 CALL CHAR(91, "000000 
013FFFFO000") 

1500 CALL HCHAR(11,19,91) 

1510 CALL CHAR(92, "000000 
FFFFF00000") 

1520 CALT HCHAR(11,20, 92) 

1530 CALL CHAR(93, "000000 
FFFF070000") 

1540 CALL HCHAR(11,21, 93) 

1550 CALL CHAR(94, "000000 
COFEFFO0700") 

1560 CALL HCHAR(11,22, 94) 

1570 CALL CHAR(95, "070301 
OOO0EOFE7F ") 

1580 CALZ HCHAR(11,23, 95) 

1590 CALL CHAR(96, "80C0E0 
FO783CI1ECF") 

1600 CALL HCHAR(11,24, 96) 

1610 CALL CHAR(97, "FF7F3F 
1rF07030100") 

1620 CALL HCHAR(12, 9,97) 

1630 CALL CHAR(98, "O080E0 
FOFEFFFEEE") 

1640 CALL HCHAR(12,11,98) 

1650 CALL CHAR(99, "1F0700 
000080E0F8") 

1660 CALL HCHAR(12,12, 99) 

1670 CALL CHAR(100, "FEFEF 
FYF6C6C6C7C") 

1680 CALL HCHAR(12,13,100 


) 

1690 CALL CHAR(101, "OO00E 
OFCFFOFO0100") 

1700 CALL HCHAR(12,14,101 
) 

1710 CALL CHAR(102, "00000 
O0Ù00EOFCSF") 

1720 CALL HCHAR(12,15,102 
) 

1730 CALL CHAR(103, "03010 
00103030707") 

1740 CALL HCHAR(12,17,103 
) 

1750 CALL CHAR(104, "F8EOF 
OFBFFBF1FOF") 

1760 CALL HCHAR(12,18, 104 
) 

1770 CALL CHAR(105, "00000 
OFFFFYEYEFS") 

1780 CALL HCHAR(12,19,105 
) 

1790 CALL CHAR(106, "00000 
OFFFFFFOFOF") 

1800 CALL HCHAR(12,20,106 


/ 

1810 CALL CHAR(107, "00000 
OEOFFFFFFEl") 

1820 CALL HCHAR(12,21,107 
) 

1830 CALL HCHAR(12,22,40) 
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1840 CALL HCHAR(12, 23, 40) 

1850 CALL CHAR(110,"FFFFO 
FO030000F8FF") 

1860 CALL HCHAR(12,24,110 
) 

1870 CALL CHAR(111, "8080E 
0E0F07038FC") 

1880 CALL HCHAR(12,25,111 


) 

1890 CALL CHAR(112,"7F3F1 
F0703010000") 

1900 CALL HCHAR(13,10,112 


) 

1910 CALL CHAR(113,"FFFFF 
FFFFFFDFESF") 

1920 CALL HCHAR(13,11,113 
) 

1930 CALL CHAR(114,"FFFFF 
FFFFFFFDFOF") 

1940 CALL HCHAR(13,12,114 


) 

1950 CALL CHAR(115, "1CCOF 
OF8FFFFFFFEF") 

1960 CALL HCHAR(13,13,115 
) 

1970 CALL CHAR(116, "00000 
00000C0FOFC") 

1980 CALL HCHAR(13,14,116 
) 

1990 CALL CHAR(117, "07010 
00000000000") 

2000 CALL HCHAR(13,15,117 


) 

2010 CALL CHAR(118, "EOF87 
E1F07010000") 

2020 CALL HCHAR(13,16,118 


) 

2030 CALL CHAR(119, "O70E0 
ESEEEFE 7F3F") 

2040 CALL HCHAR(13,17,119 
) 

2059 CALL CHAR(120, "07030 
100000000C0") 

2060 CALL HCHAR(13,18,120 


) 

2070 CALL CHAR(121,"E3F7F 
FFF7F3F1C06") 

2080 CALL HCHAR(13, 19,121 
) 

2090 CALL CHAR(122, "9E9C1 
COFFFFFO0000") 

2100 CALL HCHAR(13, 20, 122 


) 

2110 CALL CHAR(123, "EO60E 
OCOFOFF7F00") 

2120 CALL HCHAR(13,21,123 
) 

2130 CALL CHAR(124,"FF7F3 
F1FOFFFFFO1") 

2140 CALL HCHAR(13, 22, 124 
) 

2150 CALL CHAR(125, "FFFD9 
FBFFFFYE3FF") 

2160 CALL HCHAR(13,24,125 


) 
2170 CALL CHAR(126, "FCFEF 
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F3F77F7ESFF") 

2180 CALL HCHAR(13,25,126 
) 

2190 CALL CHAR(127, "00000 
000808080C0") 

2200 CALL HCHAR(13,26,127 


) 

2210 CALL CHAR(128,"1F0FO 
70300000000") 

2220 CALL HCHAR(14,11,128 
) 

2230 CALL CHAR(129, "C3E1F 
1F9FD/F3FO0F") 

2240 CALL HCHAR(14,12,129 


) 

2250 CALL CHAR(130, "O0COF 
OFC9FCY7E1FO") 

2260 CALL HCHAR(14,15,130 
) 

2270 CALL CHAR(131, "00000 
00080E0FC3F") 

2280 CALL HCHAR(14,16,131 
) À 
2290 CALL CHAR(132, "OFOFO 

COCOCOCOC8C") 
2300 CALL HCHAR(14,17,132 


) 

2310 CALL CHAR(133, "FOFCF 
E3F07010000") 

2320 CALL HCHAR(14,18,133 
) 

2330 CALL CHAR(134, "07070 
FO9FFCFE7F3F") 

2340 CALL HCHAR(14,19,134 
) 

2350 CALL CHAR(135, "FFFFE 
OFOFC3FFFFF") 

2369 CALL HCHAR(14,20,135 


) 
2370 CALL CHAR(136, "F8FF1 
FO00000FCFE") 


2380 CALL HCHAR(14,21,136 
) 

2390 CALL CHAR(137, "OOFCF 
F07000000FF") 

2400 CALL HCHAR(14,22,137 
) 

2410 CALL CHAR(138, "7F00E 
O0FFO070303FF") 

2420 CALL HCHAR(14, 23,138 
) 

2430 CALL CHAR(139, "CO001 

FFFFFO080C0") 


2440 CALL HCHAR(14,24,139 
) 

2450 CALL CHAR(140, "7FO03F 
OFFFF1F0000") 

2460 CALL HCHAR(14,25,140 
) 

2470 CALL CHAR(141, "COEOE 
OFOFOFOFO078") 

2480 CALL HCHAR(14,26,141 
) 

2490 CALL CHAR(142, "07030 
10000000000") 

2500 CALL HCHAR(i5,12,142 
) 

2510 CALL CHAR(143,"FFFFF 
FEF7F1FOF07") 

2520 CALL HCHAR(15,13,143 
) 

2530 CALL CHAR(144,"FOFS8F 
EFEFFEERFEEE") 

2540 CALL HCHAR(15,15,144 


) 

2550 CALL CHAR(145, "07010 
OCOFOFE3F8F") 

2560 CALL HCHAR(15,16,145 
) 

2570 CALL CHAR(146, "FCFF3 
FOFOEOECEFE") 

2580 CALL HCHAR(15,17,146 


) 

2590 CALL CHAR(147, "OO80F 
OFF7F070000") 

2600 CALL HCHAR(15,18,147 
) 

2610 CALL CHAR(148, "30707 
O0FOE0E06060") 

2620 CALL HCHAR(15,19,148 
) 

2630 CALL CHAR(149, "7F070 
7070F0F0F0F") 

2640 CALL HCHAR(15,20,149 


) 

2650 CALL CHAR(150, "OOFFF 
FFFFFEFFFEF") 

2660 CALL HCHAR(15, 25,150 


) 

2670 CALL CHAR(151,"78F8F 
8FOFO0EUEOEO") 

2680 CALL HCHAR(15,26,151 
) 

2690 CALL HCHAR(16,13,117 
) 

2700 CALL CHAR(152, "FFFF7 
F3F1F0F0703") 

2710 CALL HCHAR(16,14,152 
) 


2720 CALI CHAR(153, "81CO0C 
OEOFOF8FFFF") 

2730 CALL HCHAR(16,16,153 
) 

2740 CALL CHAR(154, "FE3FO0 
F07010000F0") 

2750 CALL HCHAR(16,17,154 
) 

2760 CALL CHAR(155, "OOCOF 
8FFCFC30000") 

2770 CALL HCHAR(16,18,155 
) 

2780 CALL CHAR(156, "60606 
OFOFEFFFFS3F") 

2790 CALL HCHAR(16,19,156 


) 
2800 CALL CHAR(157,"1F1F1 
FOFOFFFFFEF") 
2810 CALL HCHAR(16,20,157 
) 
2820 CALL HCHAR(17,15,97) 
2830 CALL HCHAR(17,24, 74) 
2840 CALL HCHAR(18,16,97) 
2850 CALL HCHAR(17,20,159 
r 3) 


2860 CALL HCHAR(19,17,112 


Fenétrage 


Sur des micro-ordinateurs bien 
plus puissants et bien plus 
modernes que notre bon vieux 
TI-99/4A, la grande mode est, 
aujourd'hui, de travailler en mode 
‘multi-fenêtres”. 


Avec le programme ci-après, 
vous vous apercevrez que nous 
n'avons rien à envier à d'autres. 


Le mode ‘multi-fenêtres’ fonc- 
tionne aussi bien en Basic simple 
qu'en Basic étendu, à condition 
de disposer du module assem- 
bleur. 


Les fichiers 
SCROLL SA 


C'est le source du programme 
assembleur qui permet, à partir 


) 

2870 CALL HCHAR(19,18,159 
) 

2880 CALL 
3) 

2890 CALL 


HCHAR(19,20, 74, 
HCHAR(19,24,116 
—.. CALL HCHAR(20,18,117 
étié CALL 
2020 CALL 
2950 CALL CHAR(108, "FEFEF 


CF8F0800000") 
2940 CALL HCHAR(17,25,108 


HCHAR(20,19,128 


HCHAR(20,23,117 


) 

2950 CALL CHAR(109, "FCFCF 
CFCFCFCFCF8") 

2960 CALL HCHAR(18, 23,109 
) 

2970 CALL HCHAR(19,19,159 


) 
2980 CALL HCHAR(19,23,159 


) 
2990 GOTO 2990 


Jean-Philippe Guillemant 


d'un programme en Basic simple 
ou en Basic étendu, la gestion des 
fenêtres d'écran. Le programme 
est identique pour les deux 
versions de Basic, seule une ligne 
change : 3 
* en Basic simple, il faut mettre, 
en début de programme (ligne 
37), la directive 


COPY "DSK1.BSCSUP SB" 
et créer le fichier objet sous le 
nom 

"SCROLL AB" 

* en Basic étendu, il faut 
remplacer cette ligne par la 
directive 
COPY "DSK1.SCROLL SAX" 
et créer le fichier objet sous le 
nom 


"SCROLL AX" 


Bien entendu, on ne peut pas 
alors assembler le programme 
en code compressé. 


BSCSUP SB 


C'est le désassemblage du 
programme BSCSUP de la 
disquette assembleur qui contient 
les utilitaires de passage 
d'arguments entre le Basic et 
l'Assembleur. Nous avons trouvé 
plus pratique d'avoir un seul 
programme à charger à l'exé- 
cution. Nous avons conservé 
l'ensemble du programme, mais 
seules les routines "NUMREF", 
"STRREF" et "ERR" (cf. paragr. 
17.2 du manuel Assembleur) sont 
ici utiles. 


SCROLL SAX 
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Il contient les quelques 
équivalences nécessaires au Basic 
étendu, puisque les utilitaires sont 
inclus dans le module. 


SCROLL B 


C'est un programme, en Basic 


simple, qui montre les 
possibilités de gestion de 
fenêtres. Il peut gérer, en 


répondant au menu, soit une 
fenêtre paramétrable par 
l'utilisateur, soit cinq fenêtres 
pré-paramétrées. Ces deux 
exemples montrent toute la 
richesse du mode ‘multi-fenêtres” 
et leur but est de donner des idées 
de programmes. 


SCROLL X 


C'est le même programme que 
ci-dessus, mais en Basic étendu. 
Les fonctionnalités en sont 
identiques, seule la program- 
mation diffère. 


Utilisation 


Lorsque le programme est 
assemblé, et chargé en mémoire 
par : 

CALL INIT 

CALL LOAD("DSK1.SCROLL AB") 

en Basic simple, ou par : 

CALL INIT 

CALL LOAD("DSK1.SCROZL AX'") 

en Basic étendu, on a accès à 
deux fonctions supplémentaires. 


WINDOW 


"WINDOW" permet de définir les 
fenêtres. Elle est appelée par : 


CALL LINK('"WINDOW", 
NF,LH,LB,CG, CD) 


où les paramètres sont : 


NF : numéro de fenêtre ; peut 
varier de 1 à 5, ce qui permet 
de définir jusqu'à 5 fenêtres se 
chevauchant éventuellement. 
Ce paramètre est facultatif ; s'il 
est omis, cela signifie qu'on 
désire définir une seule fenêtre 
(le cas le plus fréquent) ou bien 
la fenêtre numéro 1. 


LH : ligne haute de la fenêtre 
(de 1 à 24). 


LB : ligne basse de la fenêtre 
(de 1 à 24). 
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CG : colonne gauche de la 
fenêtre (de 1 à 32). 


CD : colonne droite de la 
fenêtre (de 1 à 32). Toutes les 
colonnes de l'écran peuvent 
être utilisées, comme avec les 
instructions CALL HCHAR et 
CALL VCHAR. Ceci implique 
que, pour redéfinir la fenêtre 
Basic normale, il faut mettre 
comme paramètres 1,24,3,30. 


En cas d'erreur, la fonction 
affiche le message "BAD 
ARGUMENT" (ou, éventuelle- 
ment, en Basic étendu, le 
message "INCORRECT ARGU- 
MENT LIST") et redéfinit la 
fenêtre par défaut (1,24,1,32). 


SCROLL 


SCROLL permet l'utilisation des 
fenêtres ainsi définies. Elle est 
appelée par 

CALL LINK("SCROLL",NF,CHS$) 
avec, comme paramètres : 


NF : est le même numéro de 
fenêtre que dans la fonction 
"WINDOW”, et est également 
facultatif (la valeur par défaut 
est 1). 

CH$ : est la chaîne à afficher. 
Il n'y a pas de restrictions sur 
la longueur de cette chaîne (de 
0 à 255 caractères). Si elle est 
trop longue, seuls les premiers 
caractères sont pris en compte. 
Si elle est trop courte, elle est 
remplie de blancs. 


Bien entendu, tous les paramètres 
peuvent être soit des valeurs 
immédiates, soit des variables. 





Programme 
“Scroll_B” 
Programme de 


démonstration, 
version ‘Basic TI’ 


100 CALL CLEAR 

110 PRINT "chargement cod 
e assembleur" 

120 CALL INIT 

130 CALL LOAD ("DSK1.SCROL 
L AB") 


140 CALL CLEAR 
150 PRINT "VOULEZ-VOUS UN 
EXEMPLE":" = D'U 
NE FENETRE (1)'":" 
- DE 5 FENETRES (2)" 
160 INPUT "OU VOULEZ-VOUS 
SORTIR (0) 2° "TI 
170 IF I>2 THEN 140 
180 ON I+1 GOTO 220,270,5 
40 
190 REM 
200 REM 
210 REM 
220 CALL CLEAR 
230 STOP 
240 REM 
250 REM 
etree 
260 REM 
270 PRINT :"ENTREZ LA DEF 
INITION DE LA FENETRE 


sortie 


1 fenetre param 


280 INPUT "LIGNE HAUTE (1 


24): Vel 
290 INPUT "LIGNE BASSE (1 
24): "EEB 
300 INPUT "COLONNE GAUCHE 
(1232) #4 "s0G 
310 INPUT "MCOLONNE DROITE 
(1-321 51 #%2àCD 
320 REM remplissage de 1 
‘ecran 


330 AS="12345678901234567 
8901234567890123456789 
O0" 
340 CALL LINK("WINDOW",1, 
24; 32) 
350 FOR I=1 TO 24 
360 CALL LINK ("SCROLL",AS 
) 
370 AS=SEGS (AS, 2, 39) &SEGS 
(AS,.2,1) 
380 NEXT I 
390 CALL LINK("WINDOW", 23 
s LS; 28) 
400 :CALL LINK ("SCROLL", 
TAPEZ SUR UNE TOUCHE" 
) 
410 CALL LINK("SCROLL", " 
ENTER POUR FINIR") 
420 REM fenetre utilisat 
eur 
430 CALL LINK ("WINDOW", LH 
,: LB, CG, CD) 
440 I=0 
450 CALL KEY (0,K,S) 
460 IF S=0 THEN 450 
470 IF K=13 THEN 140 
480 CALL LINK("SCROLL"," 
FENETRE "&STRS(I)) 
490 I=I+1 
500 GOTO 450 
510 REM 
520 REM 
530 REM 
540 CAILL CLEAR 


5 fenetres 


550 CALL LINK("WINDOW",1, 
11,.1,16) 

560 CALL LINK ("WINDOW",2, 
1,11,17,32) 

570 CALL LINK ("WINDOW",3, 
12,224; 16) 

580 CALL LINK("WINDOW",4, 
12,22,17,32) 

590 CALL LINK("WINDOW",5, 
6;17,8,23) 

600 PRINT " TAPEZ SUR UNE 
DES TOUCHES":;" 1 À 5 
,; ENTER POUR FINIR"; 

610 CALL KEY(0,K,S) 

620 IF S-0 THEN 610 

630 IF K=-13 THEN 140 

640 IF (K<49)*(K>53) THEN 
610 

650 CALL LINK ("SCROLL",K- 
48, "**"&CHRS(K)&" FENE 
TRE "&CHRS(K)&"**") 

660 GOTO 610 


Programme 
“Scrolil_X” 


Programme de 
démonstration, 
version ‘Basic Etendu' 


100 DISPLAY AT(24,1)ERASE 
ALL:"chargement code 
assembleur" :: CALL IN 
IT :: CALL LOAD("DSKI1. 
SCROLL AX") 
110 DISPLAY AT(1,1)ERASE 
ALL:"VOULEZ-VOUS UN EX 
EMPLE":" - D'UNE 


Source ‘SCROLL SA’ 


FENETRE (1)":" 
DE 5 FENETRES (2)":"OU 
VOULEZ-VOUS SORTIR (0 

120 ACCEPT AT(4,28)SIZE (1 
) VALIDATE (DIGIT)BEEP:1I 

IF I>2 THEN 120 EL 
SE ON I+1 GOTO 160,200 
, 340 

130: ! 

140 !sortie 

150: ! 

160 CALL CLEAR :: 

170 ! 

180 ! 
ble 

190 ! 

200 DISPLAY AT(6,1)BEEP:" 
ENTREZ LA DEFINITION D 
E LA FENETRE:": :"LIG 
NE HAUTE (1-24):":"LIG 
NE BASSE (1-24):" 

210 DISPLAY AT(11,1):"COL 
ONNE GAUCHE (1-32):":" 
COLONNE DROITE (1-32): 

220 ACCEPT AT(9,24):LH 

ACCEPT AT(10,24):LB 

: ACCEPT AT(11,24):CG 
: ACCEPT AT(12,24) :CD 
! remplissage de l'ec 

ran 

240 CALL LINK("WINDOW",1, 
24,1,32):: A$="1234567 
8901234567890123456789 
01234567890" 

250 FOR I=1 TO 24 :: CALL 

LINK ("SCROLL",AS$):: A 
S=SEGS (AS, 2, 39) &SEGS (A 
Seule L)se INEXT 


STOP 


1 fenetre parametra 


230 


260 DISPLAY AT(23,4)SIZE( 
22):" TAPEZ SUR UNE TO 
UCHE" : DISPLAY AT(24 
»4) SIZE (22)2" ENTER 
POUR FINIR"; 

270 ! fenetre utilisateur 

280 CALL LINK("WINDOW", LH 
,LB,CG,CD):: I=0 

290 CALL KEY(0,K,;S):: IF 
NOT S THEN 290 ELSE IF 

K=13 THEN 110 
300 CALL LINK ("SCROLL","F 


ENETRE "&STRS(I)):: I= 
I+1 GOTO 290 

310 ! 

320 ! 5 fenetres 

330 ! 

340 CALL CLEAR CALL LI 


NK("WINDOW",1,11,1,16) 

350 CALL LINK ("WINDOW",2, 
JET 7,32) 

360 CALL LINK ("WINDOW",3, 
12,:22,.1,; 16) 

370 CALL LINK("WINDOW",4, 
12 ;22517;32) 

380 CALL LINK("WINDOW",5, 
6; 17;8723) 

390 DISPLAY AT(23,1):" TA 
PEZ SUR UNE DES TOUCHE 
S":" 7 À 5, ENTER POU 
R FINIR"; 

400 CALL KEY(0,K,S):: IF 
NOT S THEN 400 ELSE IF 

K=13 THEN 110 

410 IF (K>48)AND(K<54)THE 
N CALL LINK ("SCROLL",K 
-48, "**!£&CHRS (K) &" FEN 
ETRE "&CHRS(K)&"**") 

420 GOTO 400 





Rihanna 





RAR x 





Se! a versic jilisee (respect i- 
I "SCROLL - EQUIVALENCES & RESERVATIONS" 
sattrrtrt DA AR ARR A ARR RE REA RAR AAA AA ARR A AE NA À À À 
* de: 
* DSK1.BSCSUP S 
Sssss CCCC RRR 000 l * u de DSK1.SCROLL SAX 
s c R o o L L à mme RRRRR RAR R RAR RAR RER E A RARE 
s C R R ©O OI L * « 
SSS C RRRR oO Ô [L f * PY )SK1.SCRO SAX" ou bien “DSK1.BSCSUP SB" 
S cC RR O © L L Fr 
Ss € R R oO Oo L L * * reservations memoire 
SSSS ccc R R 000 LLLLL LLLLL # 
* BUFFS BSS 32 buffer ligne d'ecran 
* BUFFA BSS 256 buffer derniere ligne (param SCROLL) 
LOARUE HU Jean-Philippe GUILLEMANT * * * * * * 
* LINH DATA 0,0,0,0,0 lere ligne chaque fenetre (0 << 23 
RRRRRRRRRIRRR TR RÉRRRRATÉR RARE ÉÉRRAÉRÉRÉRRÉARÉÉRARE LINB DATA 23,23,23,23,23 dern ligne chaque fenetre (0 << 23) 
COLG DATA 0,0,C,0,0 col gauche chaque fenetre (0 << 31 
COLD DATA 31,31,31,31,31 col droite chaque fenetre (0 << 31) 
DEF  WINDOW definition de la fenetre 
parametres: no fenetre (facultatif) UN BYTE 1 
ligne haute EU YTE 2 
$ ligne basse À TE 4 
colonne gauche TE 5 
: colonne droite TE 
DEF  SCROLL routine de rouleau EN 
Li parametres: no fenetre (facultatif) TITL "SCROLL - INITIALISATION (WINDOW) ‘ 
chaine a inserer (peut etre vide) PAGE 
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* routine d'initialisation 


WINDOW EQU 
MOV 
CLR 
LI 
CB 
JEQ 
cB 
JNE 
BL 
DATA 
JMP 
MOV 
SLA 
INC 

WIND1 BL 

LIGMAX DATA 
JMP 
MOV 
INC 
BL 
DATA 
JMP 


JL 
MOV 
INC 
BL 
COLMAX DATA 
JMP 
MOV 
INC 
BL 
DATA 
JMP 


MOV 
B 


$ 
R11,R10 
R9 

R8,1 


sauver adr. de retour 
lere fenetre par defaut 
no d'argument 


CNBRARG, @QUATRE 4 arguments ? 


WIND1 


br si oui, lere fenetre 


CNBRARG, RCINQ 5 arguments ? 


WERRAL 
CQGETARG 

Di 

WERRBA 
R2,R9 

R9,1 

R8 

@GETARG 

24-1 

WERR 
R2,@LINH (R9) 
R8 

@GETARG 

24-1 

WERR 
R2,@LINH(R9) 
WERR 
R2,CLINB (R9) 
R8 

@GETARG 
32-1 

WERR 
R2,@COLG (RS) 
R8 

@GETARG 
32-1 

WERR 
R2,@COLG(R9) 
WERR 

R2, @COLD (R9) 
QRETOUR 


br si non 

no de fenetre 

lé es 7 

si erreur 

index parametres de la fenetre 
en mots 

argument suivant 

ligne haute 

1. << 24 © 

si erreur 


argument suivant 
ligne basse 

L'C:& 24 ? 

si erreur 

lignes coherentes ? 
br si non 


argument suivant 
colonne gauche 

1 € € 32 2 

si erreur 


argument suivant 
colonne droite 

L << 32 ?Ÿ 

si erreur 

colonnes coherentes ? 
br si non 


* erreur de definition de fenetre 


- remettre les valeurs par defaut (fenetre = ecran total 
WERR EQU $ 
CLR @LINH(R9) ligne haute 
MOV Q@LIGMAX,@LINBIR9) ligne basse 
CLR @COLG (R9) colonne gauche 
MOV @COLMAX, @COLD (R9) colonne droite 
NERRBA LI RO,ERRBA message ‘bad argument 
JMP S$S+4 
WERRAL LI RO,ERRIAL nessage ‘incorrect argument list 
BLWP @ERR affichage erreur 
JMP RETOUR 


* recherche 
* entree: 


: retour: 


GETARG EQU 
CLR 
MOV 
BLWP 
BLWP 
DATA 
MOV 
DEC 
JLT 


Fr 
C 


JGT 

INCT 
GETAR1 INCT 

RT 


TITL 
PAGE 


* execution 
SCROLL EQU 


MOV 
CLR 


d'un argument numerique 
R8 = no du parametre 


argument = valeur max 


R2 = valeur parametre (-1) 


S 

RO 
R8,Ri 
QNUMREF 
@XMLLNK 
CFI 
RFAC, R2 
R2 
GETAR]1 
R2,*R11 
GETAR1 
R11 

R11 


argument dans FAC 
link to ROM routines 
convert to integer 


-1 (offset 0) 
br si <= 0 


br si trop grand 
si correct 
si erreur 


*SCROLL - EXECUTION (SCROLL) ! 


du scroll 


$ 
R11,R10 
R9 


sauver adresse de retour 


lere fenetre par defaut 


SCROL1 


SCROL2 


SCRCOL3 


SCROL4 


SCROLS 


SCROL6 


SCROL7 


SCROLB8 


LI 
CB 
JEQ 
CB 
JNE 


1 
L 


DATA 
JMP 
MOV 
SLA 
INC 


LI 
SETO 
MOVB8 
CLR 
MOV 
BLWP 


MOV 


INC 
MOV 
SWPB 
CB 
JHE 
sB 
SWPB 
CLR 
MOVB 
SWPB 


MOVB 
DEC 


JNE 


MOV 
MOV 


SLA 


MOV 


DEC 
JLT 
AI 
MOV 
BL 
LI 
MOV 
MOVB 
DEC 


UNE 


MOV 


! 
L 


MOV 
MOVB 
DEC 
UNE 
AI 
JMP 


MOV 
B 


MOV 
MOVB 
AI 
MOVB 
DEC 
JNE 


* retour au 


RETOUR 


EQU 
CLR 
MOVB 
B 


* selection 


R8,1 
GNBRARG, @QUN 
SCROL1 


CNBRARG, QDEUX 2 arguments ? 


WERRAL 
CGETARG 
9=1 
WERRBA 
R2,R9 
R9,1 

R8 


R2,BUFFA 
R1 

R1, *R2 
RO 

R8,R1 
QSTRREF 


@COLD (R9),R3 
@COLG (R9),R3 
R3 

R3,R4 

R4 

*R2,R4 
SCROL3 
*R2,R4 

R4 

R1 

*R2+,R1 

R1 

R1,R2 
@BLANC, *R2+ 
R4 

SCROL2 


@LINB(R9),R6 
@LINH (R9) ,R5 
R5,R6 

R5,5 

@COLG (R9) ,R5 
R5,R4 


R6 

SCROL7 
R4,32 

R4,RO 
@VDPADR 

R1, BUFFS 
R3,R2 
@VDPRD, *R1+ 
R2 

SCROLS 


R5, RO 
@VDPADW 
R1,BÛFFS 
R3,R2 

*R1+, @VDPWD 
R2 

SCROL6 

R5, 32 
SCROL4 


R5,R0 
@VDPADW 
R1,BUFFA+1 
R3,R2 
*R1l+, RO 
RO,>6000 
RO, @VDPWD 
R2 

SCROL8 


BASIC 

$ 

RO 

RO, @STATUS 


*R10 


adresse VDP * 


no d'argument 

1 argument ? 

br si oui, lere fenetre 

br si non 

no de fenetre 

<= 5 

si erreur 

index parametres de la fenetre 
en mots 

argument suivant 


adresse du buffer 
longueur max de chaine (= 255) 


numero d'argument 
recherche de la ligne a ecrire 


nbre de caracteres a scroller 


chaine assez grande ? 
oui 
non, la remplir de blancs 


adresse fin de chaine 


ligne superieure 
nombre de lignes a scrcller 


* 32 (adresse lere ligne a scroller 


+ lere colonne 


fini ? 


br si oui, traiter derniere ligne 


adresse ligne suivante 
selection adresse VDP 


longueur a lire 
lire une ligne 


selection adresse VDP 
longueur a ecrire 
ecrire une ligne 

pour ligne suivante 
boucle 


derniere ligne 
selection adresse VDP 


longueur a ecrire 


offset BASIC 


pas d'erreurs 
retour 
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VDPADW EQU S$ 

ORI RO,>4000 
EQU $ 

SWPB RO 

MOVB RO, @VDPWA 
SWPB RO 

MOVB RO,CGVDPWA 
RT 


VDPADR 


END 


pour ecriture 


pour lecture 





Source ‘SCROLL_SAX’ 


RER RER KR RH RÉ ARR RAR RH RRÀ 


* 


#5 CROLL = BAS IC 


* Ce fichier doit etre in 
* programme SCROLL SA pou 
* tion en BASIC etendu. 


NUMREF EQU >200C 
STRREF EQU >2014 
XMLLNK EQU >2018 
ERR EQU >2034 
NBRARG EQU >8312 
FAC EQU >834A 
STATUS EQU >837C 
VDPRD EQU >8800 
VDPWD EQU >8Cc00 
VDPWA EQU >8co02 
* 

CFI EQU >12B8 
ERRBA EQU >1C00 
ERRIAL EQU >1F00 


* 


RAR RÉ ARR ER RAR ER A À À À À 


RÉRRRRR RÉ RE REX EX 


* 


e t e n d u * 
clus dans le * 


E l'ütilisa- * 


routine 
routine 


‘get numeric parameter" 
‘get string parameter" 
ROM routine access 

error reporting routine 

nombre d'arguments 

floating point acc. 

GPL status return 

VDP RAM read data 

VDP RAM write data 

VDP RAM write address 


routine ‘convert float. to int. 
erreur ‘bad argument 
erreur ‘incorrect argument list! 


RRRRRRRRRÉRRÉR EX 





Source ‘BSCSUP SB’ 


CRE 


€ UTILITAIRES 


8 BASIC SIMPLE 


+; desassemblage de 


Es DSK1.BSCSUP 


s J.-Ph. GUILLEMANT 


RRRRR ARR RAR RÉ RER À RE ER À À 


Le DEF NUMASG 
+ DEF  STRASG 
x DEF NUMREF 
; DEF STRREF 
$ DEF ERR 
REF  XMLLNK 
REF  GPLWS 
REF  GPLLNK 
REF  UTLTAB 
CFI EQU >1200 
BASERR EQU >O00CE 
é EQU >1EAA 
+ QU >1788 
IDLIST EQU >200A 
STRLNG EQU >830C 
ADRARG EQU >8310 
NBRARG EQU >8312 
STRSPC EQU >831C 
NOERR EQU >8322 
OPTBAS EQU >8343 


* 
* 
* 


* 


numeric assignment 
string assignment 

get numeric parameter 
get string parameter 
error reporting 


link to ROM routine 
GPL workspace 

link to GPL routines 
utility variable table 
routine ‘convert float. to int' 
routine d'erreur BASIC 

(cf. ALLCHN) 

(cf. ALLCHN) 


identifier list 

longueur chaine 

adr. des descripteurs d'arguments 
nombre d'arguments du CALL LINK 
allocated string space 

numero d'erreur 

option base 


FAC EQU 
# EQU 
STATUS EQU 
VDPRD EQU 
VDPWD EQU 
VDPWA  EQU 


>834A 
>8350 
>837C 
>8800 
>8c00 
>8c02 


* codes d'erreurs 


ERRSNM EQU 
ERRBA  EQU 
ERRIAL EQU 
ERRRBS EQU 
ERRINC EQU 


NUMASG 
NUMREF 
STRASG 
STRREF 
ERR 


DATA 
DATA 
DATA 
DATA 
DATA 


UTLWS BSS 


STRTAG BYTE 


EVEN 


>1500 
>1600 
>1600 
>1700 
>2590 


UTLWS , ASGNUM 
UTLWS, REFNUM 
UTLWS, ASGSTR 
UTLWS,REFSTR 
UTLNWS ,UERR 


32 


>65 


floating point accumulator 
(cf. ALLCHN) 

GPL status return 

VDP read data reg. 

VDP write data reg. 

VDP write addresse reg. 


erreur ‘string-numbre mismatch' 
erreur ‘bad argument 

erreur ‘incorrect argument list 
erreur "bad subsript'! 

erreur inconnue 


numeric assignment 
get numeric parameter 
string assignment 
get string parameter 


working storage area 


identifieur de chaine 


RRRRR RAR RER RER R À À À À À à à 


* NUMASG: numeric assignment to BASIC 


* RO = 0 si variable numerique 
L ou numero d'element si tableau 
* R1 = numero d'argument de LINK 


RRRRRRRRRRR ER ÉRÉE REX ER RAR X 


ASGNUM MOV 
MOV 
BL 
MOVB 
JEQ 
SRL 
DECT 
UNE 
MOV 
UNE 
MOV 
INCT 
BL 
JNE 
INCT 
BL 
MOV 
MOV 
LI 
LI 
MOV 
BL 
INCT 
INCT 
DEC 
JGT 
RTWP 


ASGNM1 


ASGNM2 


ASGNM3 BL’ 
JMP 
* recherche 
* entree: 
* retour: 
* 
PARARG MOV 
JEQ 
SLA 
CB 
JLT 
SRL 
MOV 
SLA 
AI 
A 
MOV 
DEC 
AI 
RT 


*R13,R0 
@2(R13),R1 
GPARARG 
*R3,R3 
BADERR 
R3,8 

R3 
ASGNM3 
RO, RO 
BADERR 
R5,R3 
R3 
@VDP1RD 
SNMERR 
R3 
@VDP2RD 
R1,R3 
R3,R4 
R3,FAC 
R2,4 
*R3,R1 
@VDP2WT 
R3 

R4 

R2 
ASGNM2 


@TABNUM 
ASGNM1 


user RO 

user R1 

parametres de l'argument 
est-ce une constante num. ? 
oui, ‘bad argument 

variable ou element tableau num. ? 
ce doit etre un tableau num. 
a t-on demande une variable ? 
non, ‘bad argument" 

adresse du descripteur 

+ 2 

lire l'octet 2 

qui doit etre nul ! 

+ 4 

lire l'adresse de la variable 


non, 
oui, 


adresse de la variable en VDP RAM 
adresse de la valeur a transferer 


ecriture de la variable (4*2 octets 


fini ? 
non, boucle 
retour vers l'utilisateur 


traitement tableau 


des parametres d'un argument. 


L] 


R1 
R3 
RS 
R1,R1 
BADERR 
R1,8 
CNBRARG, R1 
BADERR 
R1,8 

R1,R5 

R5,3 

R5,8 
@ADRARG, RS 
R1,R3 

R3 
R3,IDLIST 


adresse 


numero d'argument 
pointeur sur l'identifieur 


du descripteur en VDP RAM 
numero d'argument 

si nul, c'est pas bon 
> que le nombre reel ? 


oui, c'est pas bon 


numero de l'argument 
offset 0 


adresse identifieur dans la liste 


* traitement tableau numerique 


ie) entree: 
* 


R3 = 
R5 = 


identifier - 2 
adr. descripteur 





58 


99 Magazine n° 11 


LS retour: R3 = adr. element recherche INCT R3 


TABNUM MOV R11,R9 sauver adr. de retour DECT R2 4 * 2? 
DECT R3 identifier = 4 ? JGT REFNM1 boucle si non 
JNE  SNMERR non, ‘string-number mismatch' RTWP retour vers l'utilisateur 
MOV R5,R3 * 
BL @VDP2RD lire ptr sur array symbol table entry REFNM2 DECT R3 variable ou element de tableau num. ? 
MOV  R1,R3 JNE REFNM5 br si non 
BL QVDP 1RD lire array symbol table entry MOV RO,RO type de parametre demande 
JLT SNMERR ‘string-number mismatch' JNE REFNM? si tableau, ‘bad argument! 
BL  @CONTAB * variable ou element de tableau 
s R4,RO MOV R5,R3 adr. descripteur 
SLA RO,3 8 octets par element INCT R3 octet 2 doit etre nul 
À RO,R3 BL  @VDPIRD le lire 
B *R9 retour JNE REFNM6 si != 0, ‘string-number mismatch! 
: INCT R3 octets 4 & 5 = ptr sur la variable 
* entree: RO = numero d'element dans le tableau BL @VDP2RD lire le pointeur 
ë R1 = ler octet de l'arrayÿ symbol table entry MOV R1,R3 
* R5 = adr. descripteur REFNM3 LI R4,FAC 
L retour: R3 = adr. ler element du tableau | 4 d R2,4 
: R4 = option base REFNM4 BL  @VDP2RD lire la variable (4 mots) 
CONTAB MOV R11,R:10 sauver adr. de retour MOV R1,*R4+ 
SLA R1,5 INCT R3 
SRL R1,13 DEC R2 fini 2 
MOV R1,R8 JGT REFNM4 boucle si non 
MOVB QOPTBAS,R4 option base RTWP retour vers l'utilisateur 
SRL R4,8 * tableau 
JEQ CONTB1 br si option base 0 REFNM5 BL @TABNUM controle & recherche element 
DEC RO si op. base 1, no d'elem doit etre=01 JMP REFNM3 
JLT RBSERR ‘bad subscript' 
INC RO REFNM6 B @ SNMERR ‘string-number mismatch' 
CONTB1 LI R6,1 
MOV  R5,R3 adr. descripteur REFNM7 B @BADERR ‘bad argument 
AI R3,4 oct 4/5 = ptr sur array's value space 
BL @VDPZ2RD lire ce pointeur RARRA RARE RAR ARR A RAA RAR 
MOV R1,R3 adr. des index max. * STRASG: string assignment 
DECT R3 * RO = 0 si variable 
CONTB2 INCT R3 index max. de la dimension suivante * où numero d'element si tableau 
BL QVDP2RD lire index max d'une dimension * R1 = numero d'argument de LINK 
INC R1 % R2 = adr. de la chaine 
s R4,R1 offset 0 (= f(option base)) CESSE EEE EEE 
MPY R1,R6 
MOV R6,R6 > 65535 ? ASGSTR MOV *R13,RO0 user RO 
JNE RBSERR oui, ‘bad subscript' MOV @2(R13),R1 user RI1 
MOV R7,R6 nbre total d'elements MOV &@4(R13),R9 user R2 
DEC R8 toutes dimensions 2? BL  @PARARG recherche parametres 
JGT CONTB2 non, boucle MOVB *R3,R3 identifieur 
DEC R6 SRL R3,8 
A R4,R6 DEC R3 = ] (string expression) ? 
€ RO,R6 no d'elem demande>nbre total d'elem ? JEQ ASGST3 br si oui, ‘bad argument" 
JGT RBSERR oui, ‘bad subscript' DECT R3 = 3 (string variable) ? 
INCT R3 adr. ler element JNE ASGST4 br si non 
B *R10 retour MOV RO,RO si parametre demande est un tableau, 
JUNE ASGST3 alors, "bad argument‘ 
SNMERR LI RO,ERRSNM “string-number mismatch' * variable chaine 
B QUERR1 MOV R5,R3 adr. descripteur 
INCT R3 
BADERR LI RO,ERRBA ‘bad argument‘ BL @VDP 1RD lire octet 2 
B QUERR1 CB R1,@STRTAG il doit etre = >65 
JNE ASGST2 sinon, ‘string-number mismatch' 
RBSERR LI RO,ERRRBS ‘bad subscript' LI R6,8 
B  QUERRI LI  R4,FAC 
MOV R5,R3 
RENAN RER RENE ARR SNA R ASGST1 BL @VDP2RD lire le descripteur dans FAC 
* NUMREF: get numeric parameter from BASIC MOV R1,*R4+ 
Lé RO = 0 si variable INCT R3 
Le ou numero d'element si tableau DECT R6 8 octets ? 
« Ri = numero d'argument de LINK JGT ASGSTI boucle si non 
RRRARRRRRRÉRRÉRÉAR ARR RAR SX BL RALLCHN ranger la chaine 
AI R5,4 adr. pointeur chaine dans descripteur 
REFNUM MOV *R13,R0 user RO MOV R5,R4 
MOV @2(R13),R1 user R1 MOV  *#R6,R1 adr. chaine en VDP RAM 
BL CPARARG recherche parametres BL QVDP2WT mettre l'adresse a jour 
MOVB *R3,R3 identifier INCT R4 adr. longueur chaine dans descripteur 
SRL R3,8 MOV  @STRLNG,R1 
JNE REFNM2 br si ce n'est pas une expression num SRL R1,8 
MOV RO,RO si l'argument demande est un tableau, BL QVDP2WT mettre a jour la longueur 
JNE REFNM7 alors, ‘bad argument RTWP retour vers l'utilisateur 
* expression numerique 
LI R2,8 ASGST2 LI RO,ERRSNM ‘string-number mismatch' 
LI R4,FAC B QUERR1 
MOV R5,R3 adr. descript (contient expression) 
REFNM1 BL @VDP 2RD lire la valeur (4 * 2 octets) ASGST3 LI RO,ERRBA ‘bad argument 
MOV R1,*R4+ la ranger dans FAC B QUERR1 
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* traitement tableau chaine 


* 
* 


* 


TABS 


entree: 


retour: 
TABSTR MOV 


T1 


DECT 
JNE 
MOV 
BL 
MOV 
BL 
JLT 


BL 


SLA 
À 
BL 
B 


* tableau 
ASGST4 BL 


ASGSTS 


ASGST6 


LI 
MOV 
MOVB 
MOVB 
MOV 
MOV 
JNE 
CLR 
JMP 
DEC 
BL 
SRL 
MOV 
BL 
RTWP 


R3 = identifieur (-3) 
R5 = adr. descripteur 
R1 = adr. element recherche 


R11,R2 adr. de retour 

R3 tableau de chaines ? 

ASGST2 br si non, ‘string-number mismatch" 
R5,R3 adr. du descripteur 

@VDP 2RD lire octets 0 & 1 

R1,R3 ptr to array symbol table entry 
@VDP1RD lire ler octet le la table4 

TABST1 O.K. 

QASGST2 ‘string-number mismatch' 

QCONTAB control & calc adr. pointeurs d'elem 
R4,R0O offset = f(option base) 

RO, 1 en mots 

RO,R3 + numero d'element 

@VDP2RD lire l'adresse de la chaine 

*R2 retour 

CTABSTR traitement tableau 

R6,FAC ranger dans FAC nouveau descripteur 
R3,*R6+ 

QSTRTAG, *R6+ indicateur de chaine 

R4,*R6+ option base (en prime) 

R1,*R6+ ancienne adresse chaine 

R1,R3 

ASGSTS si non nulle 

*R6 0 comme longueur 

ASGST6 

R3 

@VDP1RD lire la longueur de l'ancienne chaine 
R1,8 

R1,*R6 la ranger 

CALLCHN mettre a jour la chaine 


retour vers l'utilisateur 


* allocation & rangement d'une chaine en VDP RAM 
ALLCHN MOV 


ALLC 


H1 


LWPI 
LI 
BL 
LWPI 
MOVB 
SRL 
MOV 
MOV 
BLWP 
DATA 
LI 
LI 
MOV 
MOVB 
MOVB 
MOV 
MOV 
JEQ 
MOV 
MOV 
INC 
MOVB 
BL 
INC 
DEC 
JGT 
LWPI 
LI 
BL 
LWPI 
MOV 
RT 


R1i,R2 adr. de retour 

GPLWS 

R11,>1EAA 

*R11 

UTLWS 

*R9,R6 longueur chaine a assigner 
R6,8 

R6, @STRLNG 

R6,@>8350 

@GPLLNK link to GPL routines 
>0038 get string space 
R6,FAC 

R4,28 

R4,*R6+ 

QSTRTAG, *R6+ 

R4,*R6+ indicateur de chaine 
@STRSPC,*R6 adresse allouee 
RSTRLNG,RB8 longueur nulle ? 


ALLCH2 br si oui 

*R6,R4 

R9,R3 adr. chaine 

R3 saut de l'octet de longueur 
*R3+,R1 

@VDPIWT copie chaine en VDP RAM 
R4 

R8 fini ? 

ALLCH1 boucle si non 

GPLWS 

R11,>1788 

#*R11 

UTLWS 

R2,R11 retour 


RAR ARR RER RAR RAR RAR nn 


* STRREF: get string parameter 
= 0 si variable ou constante 


RO 


R1 
R2 


ou 


numero d'element si tableau 


= numero d'argument de LINK 
= adr. ou ranger la chaine 


ler octet du buffer = longueur max 
LR Ro nnnintns 


REFSTR MOV 


MOV 
BL 


*R13,RO user RO 
@2(R13),R1 user R1 
CPARARG recherche parametre 


MOVB *R3,R3 
SRL R3,8 
DEC R3 
JEQ REFSTI 
DECT R3 
JNE REFST6 
* variable ou constante 
REFST1 MOV RO,RO 
JNE REFST8 
MOV @4(R13),R0 
MOV R5,R3 
INCT R3 
BL QVDP1RD 
cB R1,@STRTAG 
JNE REFST}/ 
INCT R3 
BL @VDP2RD 
REFST2 MOV R1,RI1 
JEQ REFST3 
MOV R1,R6 
DEC RI1 
MOV R1,R3 
BL @VDPIRD 
cB *RO,R1 
JL REFST9 
REFST3 MOVB R1, *R9+ 
JEQ REFSTS 
MOV R6,R3 
SRL R1,8 
MOV R1,R5 
REFST4 BL @VDP1RD 
MOVB R1, *RO+ 
INC R3 
DEC R5 
JGT REFST4 
REFSTS RTWP 
* tableau 
REFST6 BL CTABSTR 
MOV @4(R13),R0O 
JMP REFST2 
REFST? B @ SNMERR 
REFSTS8 B @BADERR 


REFST9 LI 
B 


RO,ERRINC 
QUERR1 


identifieur 


= 1 (string expression) ? 

br si oui 

= 3 (string variable) ? 

br si non, doit etre un tableau 


user RO doit etre = 0 

non, ‘bad argument" 

user R2 

adr. du descripteur 

l'octet 2 doit contenir >65 
le lire 

correct ? A034 

non, ‘"string-number mismatch" 


lire octets 4 & 5 (ptr adr. chaine) 
adr. chaine nulle ? 
oui 


octet precedent la chaine = longueur 


lire la longueur 

> longueur demandee ? 

oui, 2222? 

ranger longueur dans ler octet buffer 
fini si chaine vide9 

adr. chaine en VDP RAM 


longueur a lire 
lire un octet 
et le ranger dans buffer utilisateur 


chaine lue ? 

boucle si non 
retour vers l'utilisateur 
traitement tableau 
user R2 (adr. du buffer) 
et copie 


‘string-number mismatch" 


‘bad argument! 


* lecture de 2 octets de la VDP RAM 


+ entree: 

* retour: 

VDP2RD SWPB 
MOVB 
SwPpB 
MOVB 
NO? 
MOVB 
SWPB 
MOVB 
SWPpB 
RT 


R3 = adr. 


de lecture 


R1 = valeur lue 


R3 
R3, @VDPWA 
R3 
R3,@VDPWA 


QVDPRD,R1 
R1 
@VDPRD,R1 
R1 


* ecriture de 2 octets en VDP RAM 
R1 = mot a ecrire 
R4 = adr. d'ecriture 


Le entree: 

VDP2WT SWPB 
MOVB 
SWPB 
ORI 
MOVB 
NOP 
MOVB 
SWPB 
MOVB 
SwPpB 
RT 


R4 
R4,@VDPWA 
R4 
R4,>4000 
R4, QVDPWA 


R1, QVDPWD 
R1 
R1, @VDPWD 
R1 


* lecture d'1 octet de la VDP RAM 
R3 = adr. de lecture 


* entree: 

LL retour: 

VDPIRD SWPB 
MOVB 
SWPB 
MOVB 
NOP 
MOVB 


R1 = octet lu 


R3 
R3,@VDPWA 
R3 
R3, QVDPWA 


@VDPRD,R1 
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RT 
+ ecriture d'1 octet en VDP RAM 


# entree: R1 = octet a ecrire 
L R4 = adr. d'ecrirure 
VDPIWT SWPB R4 

MOVB R4,@VDPWA 

SWPB R4 

ORI R4,>4000 

MOVB R4,@VDPWA 


NOP 
MOVB R1, @VDPWD 
RT 


RRRRRRRRRRRRRRÉARÉRÉRERÉ RER 


* ERR: error reporting 


* 


RO = code d'erreur 


RRRR RH RAR RAR RAR RR k 


UERR 


UERR1 
UERR2 


MOV 
JMP 


*R13, @NOERR 
UERR2 


MOV RO, @NOERR 

LWPI GPLWS 

LI R11,UTLTAB Utility table 

AI R11,14 GPL return address 
MOV #*R11,R11 -> Ri 

B @BASERR 





Disques double face 


Yann Fasquel 


Grande nouvelle pour les 
utilisateurs du boîtier d'extension 
du TI-99/4A : il est tout à fait 
possible d'utiliser des lecteurs de 
disquettes double face, et de 
disposer ainsi de 180Ko par unité 
de disquette. 


La carte contrôleur est tout à fait 
capable de gérer ces lecteurs, non 
seulement du point de vue ‘hard’, 
mais aussi du point de vue ‘soft’. 
Et cela sans aucune modification 
de la carte contrôleur. 


Les problèmes rencontrés jusqu'à 
présent pour cette mise en œuvre 
viennent d'une erreur dans les 
‘softs’ Texas il y a une 
incompatibilité entre le module 
“DISK MANAGER” et le ‘soft’ 
de la carte contrôleur, car, lors du 
‘formatage’ des disquettes, le 
programme du module positionne 
certains octets en fonction des 
réponses aux questions SIMPLE 
DENSITE et SIMPLE FACE, 
mais bas les bons. 


Dans l'enchaînement, le ‘soft’ de 
la carte contrôleur vient tester ces 
octets, mais le problème est là : 
pour la carte contrôleur, l'octet 
positionné par le module à la 
question SIMPLE DENSITE 
correspond au nombre de faces. 
De la même façon, l'octet 


positionné par le module à la 
réponse donnée pour le nombre 
de faces correspond, pour la carte 
contrôleur, à la densité. Il suffit 
donc d'inverser les réponses 
entre les deux questions pour 
pouvoir disposer des lecteurs 
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double face si, bien sûr, on 
dispose d'unités de ce type. 


Exemple : répondre aux questions 


SIMPLE FACE (O/N)? O 
SIMPLE DENSITE (O/N)? N 


et, à ce moment, vous verrez le 
nombre de secteurs disponibles 
dépasser le nombre fatidique de 
359 et aller jusqu'à 718. Une fois 
le formatage effectué en double 
face, le ‘soft’ du contrôleur 
reconnaîtra toujours les deux 
faces, pour tous les accès disque. 


Cependant, en ce qui concerne la 
double densité, il faudrait changer 
tout le contrôleur, aussi bien la 
partie ‘soft’ que la partie ‘hard’. 
Le Pascal reconnais aussi les 
deux faces. Ainsi, on dispose de 
360 blocs par disquette. 


Conseils 


+_ pour le branchement des unités 
de disquettes, se reporter aux 
documents fournis par Texas 
Instruments avec votre 
contrôleur ; 

+ n'essayez pas de mettre deux 
unités demi-hauteur dans le 
boîtier d'extension, car 
l'alimentation interne ne tiend 
pas la puissance demandée, et 
entre en limitation ; 

* sur chaque lecteur, il y a un 
réseau de résistances qui sert 
aux adaptations de bus. Il y a 
deux possibilités de montage : 


— vous mettez vos unités en 


série sur le réseau et il ne 
faut laisser le réseau que sur 
le dernier lecteur ; 

— utilisation du lecteur interne 
et de lecteurs externes 
théoriquement, il faut 
changer le réseau du lecteur 
interne par des résistances 
plus fortes (le double), et 
sur les lecteurs externes ne 
laisser le réseau que sur le 
dernier lecteur sur le bus, 
réseau qui sera, lui aussi, 
d'une valeur double. Mais il 
est possible de ne pas 
changer ces réseaux. A 
priori, cela fonctionne 
correctement ; mon système 
est monté ainsi ; 

* ne pas oublier de programmer 
le numéro de disque sur 
chaque lecteur, et ceci en 
fonction de chaque type de 
lecteur ; 

*_on peut prendre n'importe quel 
type de lecteur du moment 
qu'il est au standard 
SHUGART, notamment des 
lecteurs compatibles IBM, 
mais pas de lecteurs du type 
Apple. 


Alors, tous à vos disquettes. 


N.D.L.R. : ceci ne fonctionne 
pas sur les versions les plus 
anciennes du DISK MANAGER, 
versions qui ne posaient pas de 
questions relatives à la densité et 


au nombre de faces. 
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Petites annonces 


A vendre modules : Basic Etendu. 


(600 Francs), Mini-mémoire (600 
Francs), Editor/assembler (600 
Francs), Gestion de fichiers (250 
Francs), Parsec (150 Francs), 
Multiplication 1 (70 Francs). 
Recherche documentation 
TI-Writer, LOGO II, Data Base 
Management, UCSD P-system. 


Alain MACHUROT - 20, rue 
Raymond Bordier 33200 
Bordeaux - Tél. : S6.45.84.62 
poste 1310 (heures de bureau). 


Vends Mini-mémoire + Mini- 
assembleur + documentation 
Texas sur assembleur + livre 
d'initiation au langage assembleur 
du T1-99/4A : 650 Francs. 99 
Magazine numéros 1 à 8 avec 
cassettes numéros 4 à 8: 250 
Francs. 


JF. de Belleval - La Borne 
Trouée - 60153 Rethondes - 
Tél. : 44.85.62.26 


Achète tous modules et lecteur, 
prix raisonnable. Possibilité 
échange (lecteur de disquettes) 
contre PB100 + interface. 
FX702P + interface + imprimante 
FP10, FX750P + interface + 
carte RAM 4Ko. 

Michel Voisin - 22, route de 
Venerque - 31190 Auterive - 
Tél. : 61.08.21.88. 


Vends TI-99/4A, boîtier 
d'extension. Cartes Pascal, 
RS232, 32Ko. Lecteur de 
disquettes. Modules Mini- 
mémoire, Editeur/assembeur, 
Basic Etendu, trois modules de 
jeux. Documentation technique, 
livres, divers soft, manettes de 
jeux. Prix à débattre. 


Yann Fasquel - 41, quai Eugène 
Lecorre - 78700 Conflans Ste 
Honorine - Tél. : 39.72.64.34 
après 18 H. 


Vends TI-99 + joysticks : 1000 
Francs. Synthétiseur de paroles, 
Basic Etendu (Manuel en 
français) : 500 Francs pièce. 
Modules Adventure avec quatre 
cassettes : 400 Francs. Hopper, 
Burger Time, Star Trek, Return 
to Pirate's Isle, Super Demon 
Attack, TI Invaders, Mush, 
Tombstone City, The Attack, 
Treasure Island, Parsec : 100 
Francs pièce. Cassettes Solar 


system, Lunar Lander: 80 
Francs pièce. 
Olivier Fontenay - 4, rue 


Armand, 78100 St Germain - 
Tél. : 39.73.33.42. 


Vends TI-99/4A, interface 
Péritel, magnétophone Texas, 
cordons, manettes de jeux, Basic 
Etendu avec livres en français et 
anglais, mémoire 32Ko, TI Logo 
I, module Chasse aux Wumpus, 
Cassette Basic par soi-même, 
livre 50 programme pour 
T1-99/4A. Le tout : 3000 Francs. 


Christian Delaunay - 3, bis rue du 
Colonel Oudot - 75012 Paris - 
Tél. : 43.41.97.18. 


Vends TI-99/4A, Péritel, 
manettes de jeux, Basic Eten,du, 
deux modules (Foot et Musik), 
16 livres, 30 cassettes, 99 
Magazine 1 à 8. Le tout 2500 
Francs. Vends aussi magnéto + 
câble, modulateur SECAM/UHF. 


François Frattini - 30, galerie de 
l'Arlequin - Appartement 2224 - 
38100 Grenoble Tele € 
70.22.16.12: 


Vends TI-99/4A (1984) Péritel, 
Ext. Basic français, câble K7, 
mémoire 32K0 externe, 
Mini-mémoire, interface 


Centronics, quatre modules de 
jeu, 25 cassettes de jeux et 
programmes, collection complète 
99 Magazine, livres, manette 
Tirvit, 100 listings imprimés, 


gratuites) 


trucs. Valeur 8500 Francs, vendu 
5000 Francs. 


Jean-Louis Philippe - 73, route 
de Sierck - Koenigsmacker - 
57110 Yutz - Tél. : 82.50.01.46. 


Vends TI-99/4A, Basic Étendu, 
synthétiseur de paroles, joysticks 
Texas, Magnétophone Philips, 
mini-mémoire + livre assembleur. 
Modules Beginning Grammar, 
Early Reading, Le Basic par 
soi-même, Aide à la 
programmation 1, Extended 
Basic par soi-même, Gestion 
Privée, Munchman, Football, 
Adventure, Poker, Tombstone, 
cassettes programmes de jeu, 
livres, série 99 Magazine. 

Daniel Hervé - 98, rue du Lt 
Keiser - 95170 Sannoiïis - Tél. : 
34.10.14.12. 


Vends Extended Basic (manuel 
en français): 700 Francs. 
Cordon cassettes pour deux 
magnétophones : 100 Francs. 
Deux cassettes Basic par 
soi-même : 50 Francs chaque. 
Frédéric Grenier - 6, rue Paul 
Signac - 78370 Plaisir - Tél. : 
30.54.13.71 (après 17 H). 


Vends TI-99/4A, adaptateur TV, 
manettes, magnéto avec câble, 
Basic Etendu, Mini-mémoire, 
TI-Calc, 22 modules éducatifs et 
jeux, 20 cassettes programmes 
divers, collection 99 Magazine, 
collection Hebdogiciel, Cassette 
Basic et Basic Etendu, 
Editeur/assembleur. Valeur neuf 
9800 Francs, vendu 4500 Francs 
(à débattre). 

G. Lebon - Chemin des Montants 
- 54690 Eulmont EE : 
83.22.84.23. 


Vends numéros 1 à 8 de 99 
Magazine, 20 Francs pièce. 
Sylvain Eichstadt - 6, rue de la 
Sapinière - 57600 Morsbach - 
Tél. : 87.85.42.46 après 14 H. 
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Recherche pour boîtier 
d'extension carte RS232 et 
lement imprimante avec 










G. Triton - R.N. Les 
Petites Vallées - 452 
Saint Aubin 










avec boîtier 
mémoire 32Ko. 
Basic 
2500 


Vends Tex 
d'extension, 
lecteur de disquettes, 


Étendu, TI-LOGO 2: 


Francs. 


Michel VIAENE - Longueville 
sur Aube - 10170 MERY sur 
SEINE - Tél, : 25.21.22.32, 


Vends carte contrôleur double 
face PHP 1240. Disquettes 
Fichier d'adresses PHD 5001, 
Mathématiques PHD 5006, 
Programming AIDS II PHD 
590$, Programming AIDS III 
PHD 5012, Electrical 
Engineering Library PHD 5008, 
Structural Engineering Library 
PHD 5016, Basic Etendu par 
soi-même PHD 5019. Cassettes 
Adventureland PHT 6046, The 


Count PHT 6049, Tractor's 
folies. 

Jean-François DYBA - 18, rue 
Missembæœuf 02440 


MONTESCOURT-LIZEROLLE 
S - Tél, : 23.63.21.34. 


Vends console TI-99/4A, Basic 
Etendu, boîtier d'extension 
périphérique d'origine (1 carte 
interface, 1 carte contrôleur, 1 
lecteur 5"1/4, 1 module Disk 
Manager), carte d'origine Texas 
RS232 et Centronics (+ cable 
Centronics) : 5500 Francs (avec 
deux modules de jeux). 

Modules Mini-mémoire avec livre 
“Initiation au langage assembleur 
(Denise Amrouche), Gestion 
personnelle de fichiers : 450 
Francs. 

Modules Gestion privée et 
TI-Calc : 550 Francs. 


Modules d'initiation pour 
enfants : Number Magic, 
Addition et Soustraction, 
Alligator Mix, Meteor 
Multiplication, Demolition 
Division, le module: 150 
Francs. 
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Philippe Mechelaere - 6, Rue des 
Saints Sauveurs 92260 
Fontenay aux Roses - Tél. : (1) 
43.50.88.16. 


Vends TI-99/4A, Basic Etendu, 
Mini-mémoire, extension 32Ko 
externe. Modules TI Invaders, 
Parsec, Gestion de fichiers. 
Nombreux programmes sur 
cassettes, documentation impor- 
tante, magnéto TI + liaison + 
liaison Péritel + disquette routines 
graphiques en assembleur. Le 
tout : 3500,00 Francs. 


Monsieur Pothion - 12, place 
Gabriel Rouy - 31110 LUCHON 
- Tél. : 61.79.30.58 H.B. 


À vendre, nombreux logiciels 
pour TI-99 importés de RFA. 
Angleterre er USA. 

Téléphonez à Philippe, le soir, au 
(1) 48.08.17.25. 


Cherche contacts avec des 
utilisaieurs de TI-99, dans le but 
d'éf QnnaAIssAaNnces et 







- 2], 
octeur Dreyer-Dufer - 95: 
UFFEMONT 







Raiders,. 
100 Francs. 
Cassettes originales (France, 
USA Allemagne) : 100 Francs. 
Picnic Paranoïa : 150 Francs. 
Achète (ou échange): Blasto. 
Touch Typing Tutor, Sneggit. 


Rotors 
Anteater, Zéro Zap : 


A vendre, 


Physical Fitness, Diagnostic. 
Home Financial Decisions. 


Videographs, Weight control and 
nutrition. 

Achète en import: Shamus. 
JumpMan Junior, Miner 2049er. 


Computer War, Big Foot, Meteor 


Belt, Super Fly, SewerMania. 
WingWar, BaseBall, American 
FootBall, Espial, Story Machine, 
Face Maker, Super Storm, Joust. 
Stargate, Robotron 2084, 
Scrabble, Choplifter (modules 
uniquement). 

Qui possède “Terminal emulator 
communiquerait par 









Dépôt légal 


fassiez 


frais 


Le Club 
SHER-11" 
se présente. 


Nous sommes très heureux, 
ici à Sherbrooke, de vous 
annoncer la naissance de 
notre club d'utilisateurs de 

“SHER-TI”. Pourquoi 
“SHER-TI” ? Pour la ville 
de SHERbrooke ct, de 
manière certaine, Ce CHER 
TT. 


Nous sommes très intéressé 
à éclianger des programmes, 
des idées, ainsi que nos 
“NewsLetters” 


Une première chose qui 
serait importante pOur ROUS 
tous serait de compiler le 
plus. d'informations 
disponibles sur le TI. Nous 
avons débuté une liste des 
livres qui traitent du 99/4A 
et aimerions que VOUS en 
autant. Nous 
POurrions même Vous 
envoyer des copies de 
certains documents à peu de 
(ou encore des 
échanges de documents). 


Présentement, nous sommes 
prêts à recevoir vos 
suggestions et demeurons 
dans l'attente de pouvoir 
communiquer. 


Pierre Biron 
SHER-TI 

2970 HARPIN ST. 
FLEURIMONT, QC, 
CANADA, J1G 3P6 












photocompo - labo - films - plaques - photocopie couleur - offset rapide 
compo - typo - quadri - assemblage - pliage - mise sous classeur 


On fait que ça 


Délai: Super rapide 
Prix: Super bas 


On est là pour ça 


papier à lettre - carte de visite - carte commerciale - document publicitaire 










tract - thèse - mémoire - livre - catalogue - et bien d'autres choses ... 


La bonne équipe 
D * 
(-# ù 


Lu 


LS 
4 


LES A TELIERS 


TOURS c’est là 


DU CENTRE 
25, rue Michel-le-Comte - 75003 PARIS 4? 72 4 19 








